Как перлом ходить по сайтам чрез прокси?

Как перлом ходить по сайтам чрез прокси?

Хожу по сайтам посредством LWP

 

Гляди http://kaimi.ru/2010/07/модуль-для-работы-с-web/

 

ок, я сделал проще- сходил на cpan глянул в LWP

Теперь возникла проблема - елси пркоси дохлый очень долго думает(((

 

Чекай прокси перед запросом

 

хех) гениально и просто, однакож...

И еще, как убить этот чертов поток в перле?)
хочу вызвать потоков 10 паралельно и потом по слипу их кильнуть если они не завершились..

 

thread->detach

 

Разве это киляет потоки?
Это просто отвязывает их от основной проги. Т.е. при завершении проги и потоки умрут.
Но я хочу сделать цикл, в цикле запускать N потоков, ждать время t, и килять эти потоки, после чего новая итерация цикла.

А деаттача - просто отвяжет поток, но он так и будет работать в фоне.

 

Можешь например так сделать:

Code:

use threads;

$| = 1;
while(1)
{
	my $time = time;
	my $thr = threads->create(\&main);
	
	while(1)
	{
		my $dif = time - $time;
		print $dif, "\n";
		if($dif == 3)
		{
			$thr->kill('KILL')->detach;
			print "Restart!\n";
			last;
		}
		sleep 1;
	}
}

sub main
{
	$SIG{'KILL'} = sub { threads->exit() };
	while(1)
	{
		print ".";
		select undef, undef, undef, .1;
	}
}

Только зачем..