[Perl] Новичкам: задаем вопросы

Вот такой скрипт есть в учебнике, по которому решил заниматься.

Находит ошибку на 17 и 20 линии. В чем проблема - не могу понять.

 

$avg = $total / $numOfEls;

 

Вот такой тупуватый вопрос....Как или чем запускать perl скрипты??А то постоянно имею дело с пхп,а ет столкнулся с перл....

 

ActivePerl, perldoc

 

А через denwer никак??

 

Если установлен перл вместе с денвером, то можно...

 

Ну в денвере есть файлы типо Perl.exe,wPerl.exe и т.д....

 

Ну, значит можно

 

как закодировать значение в Url кодировку?

 

http://support.internetconnection.net/CODE_LIBRARY/Perl_URL_Encode_and_Decode.shtml

 

Code:

use URI::Escape;

my $url = uri_escape( 'http://search.cpan.org/~gaas/URI/URI/Escape.pm' );

 

а можно не страдать фигней и так написать
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 избавиться?

 

$string =~ s/\^M//g;

 

Code:

cat script_dos.pl | tr -d '\r' > script_unix.pl

или создать перл-скриптик с регуляркой

Code:

s/\r//g

Это если файл уже залит на шелл. Можно сделать и в винде, пользуясь редакторами типа Notepad++ и сохранять сразу в Unix-варианте

 

Есть еще такая программка - dos2unix, входит в состав пакета tofrodos.

 

я сделал проще,хотя может это конечно и глупо но всетаки.
файл закачивается через пхп скрипт, а после закачки вызываю такую команду

 

Дайте пример multipart/form-data запроса на перле с использованием сокетов

 

ну вот засылает 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;