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