Вот такой скрипт есть в учебнике, по которому решил заниматься. Находит ошибку на 17 и 20 линии. В чем проблема - не могу понять.
Вот такой тупуватый вопрос....Как или чем запускать perl скрипты??А то постоянно имею дело с пхп,а ет столкнулся с перл....
а можно не страдать фигней и так написать a=~s/\n//i; # в перем $a - твой урл my @txt=split(//,$a); foreach(@txt) {$wer=ord($_);$wer=sprintf "%%%x",$wer;$tekst.=$wer;} print $tekst;
Люди объясните пожалуйста про функцию alarm читал доки и не осилил есть запрос который используется для сбора инфы есть два клиента петя вася скрипт открывает текстовик с клиентами массив,цикл в цикле запрос на сбор статистики. если запрос для пети длится больше минуты то скрипт завершается по тайм ауту и вася обламывается. дак вот не пойму как алармом убить петин цикл,но так чтоб дальше пошел вася обрабатываться З.Ы.Травку не курил ))
Решение проблемы нашел ) Теперь такой вопрос. У меня есть пхп скриптик который тупо закачивает текстовый файл. если я текстовый файл(сделанный в винде) закачаю на FreeBSD то там в нем на конце каждой строчки находтся символ ^M и потом перловский скрипт из за этой шляпы не хочет пахать, как лучше от него ^M избавиться?
Code: cat script_dos.pl | tr -d '\r' > script_unix.pl или создать перл-скриптик с регуляркой Code: s/\r//g Это если файл уже залит на шелл. Можно сделать и в винде, пользуясь редакторами типа Notepad++ и сохранять сразу в Unix-варианте
я сделал проще,хотя может это конечно и глупо но всетаки. файл закачивается через пхп скрипт, а после закачки вызываю такую команду
ну вот засылает php скрипт в форму аплоада )) Code: my $sock=new IO::Socket::INET(PeerAddr=>$dom,PeerPort=>'80',PeerProto =>'TCP'); my $a=q(POST ).$skript_name.q( HTTP/1.1 User-Agent: Opera/9.50 (Windows NT 5.1; U; ru) Host: ).$dom.q( Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1 Accept-Language: ru-RU,ru;q=0.9,en;q=0.8 Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1 Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0 Connection: Keep-Alive, TE TE: deflate, gzip, chunked, identity, trailers Content-Length: 1000 Content-Type: multipart/form-data; boundary=----------Yqz7fayiEPXAbonKK8XQJM ------------Yqz7fayiEPXAbonKK8XQJM Content-Disposition: form-data; name="act" upload ------------Yqz7fayiEPXAbonKK8XQJM Content-Disposition: form-data; name="uploadfile"; filename="name.php" Content-Type: application/octet-stream <? Error_Reporting(E_ALL & ~E_NOTICE); echo 'someshittt'; ?> ------------Yqz7fayiEPXAbonKK8XQJM Content-Disposition: form-data; name="miniform" 1 ------------Yqz7fayiEPXAbonKK8XQJM Content-Disposition: form-data; name="submit" Upload ------------Yqz7fayiEPXAbonKK8XQJM-- );print $sock $a;