sleep () между тредами

[samlab]

  Приветствую всех. Так и не смог решит проблему с очередью, интересует именно задержка между тредами, а не задержка между отправкой и обработкой данных...

Код:

#!/usr/bin/perl -w

$| = 1;

use LWP::UserAgent;

use threads ('yield',
'stack_size' => 8*4096,
'exit' => 'threads_only',
'stringify');

my $threads = 10; 

threads->new(\&main) for 1 .. $threads;

$_->join for threads->list;

sub main

{

my $ua = LWP::UserAgent->new;
$ua->agent(); 
$ua->default_header('Referer' => "http://google.ru/");
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Charset' => "windows-1251");

$ua->get('http://google.ru/');

 sleep (20);

}

В приведенном выше коде одновременно 10 потоков запрашивают страницу гугля, потом скрипт спит 20 секунд... Каким образом можно настроить таймаут между потоками именно в запросе страницы, очень прошу помочь и заранее большое спасибо?

[RXL]

samlab, честно говоря я не понял, что ты хочешь сказать - какие задержки, какие таймауты... Попробуй описать задачу понятнее.

[samlab]

Прошу прощения... Я имел ввиду, чтобы в моем примере, который я выше привел, страница гугля запрашивалась не одновременно 10-ю потоками, а чтобы между этими 10 потоками была пауза, скажем, 1-ый поток запросил страницу, потом прошло 3 секунды, второй поток запросил страницу, прошло опять 3 секунды и т.д...

[RXL]

Делай паузу между созданием потоков. Функция sleep(secodes).

[samlab]

Делай паузу между созданием потоков. Функция sleep(secodes).

Спасибо большое. А можно ссылочку на доки по поводу этой функции, а то я что то не нашел нигде про нее упоминания, сейчас гуглил...

[RXL]

В *nix: man perlfunc
В винде - не знаю.
Или на оф.сайте Perl: http://perldoc.perl.org/functions/sleep.html

[samlab]

В *nix: man perlfunc
В винде - не знаю.
Или на оф.сайте Perl: http://perldoc.perl.org/functions/sleep.html

Благодарствую, только не совсем понятно, как использовать эту функцию применительно к моему коду... Если вам не составит труда, подскажите, куда вставить ее?

[RXL]

Вместо

Код:

threads->new(\&main) for 1 .. $threads;

вставь

Код:

for 1 .. $threads
{
  threads->new(\&main);
  sleep(3);
}

А вот это вообще не нужно:

Код:

sleep (20);

[samlab]

Код:

syntax error at C:\t.pl line 14, near "for 1"
syntax error at C:\t.pl line 18, near "}"
Execution of C:\t.pl aborted due to compilation errors.

[RXL]

Код:

for (1 .. $threads)

Кстати, в "твоем" коде та же ошибка.

Вообще, если думаешь применять Perl, то учи его.

[samlab]

Спасибо, буду стараться...