|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Maxim Yemelyanov 2:5020/400 22 Apr 2004 20:26:28 To : Roman V Tchemisov Subject : Re: Странные паузы в работе скрипта -------------------------------------------------------------------------------- Приветствую! 22 апреля 2004 г. в 16:45:16 Вы стучались к All: RVT> Hi, All. RVT> Простенький скрипт: RVT> [-=cut=-] RVT> #!/usr/bin/perl RVT> use LWP::UserAgent; RVT> my $ua = LWP::UserAgent->new; $ua->>agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'); RVT> my $req = HTTP::Request->new(POST => 'http://somesite.irk.ru/psend.php'); $req->>content_type('application/x-www-form-urlencoded'); RVT> foreach (1..1000){ RVT> $req->content("pid=$_&pmsg=$text"); RVT> $res = $ua->request($req); RVT> } RVT> [-=cut=-] RVT> После начала работы, скрипт делает порядка 140 запросов, а потом "замирает" RVT> на пару минут. После этого снова делает около 200 запросов и опять RVT> "замирает". Чего это он так? Как сделать так, чтобы он работал непрерывно? Может быть уважать правила robots.txt ? -- Удачи! Максим Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5.3 * Origin: Enigma Soft (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1312649312ac8.html, оценка из 5, голосов 10
|