Показать сообщение отдельно

  #2  
Старый 14.02.2008, 16:36
Digimortal
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796

Репутация: 1095


По умолчанию

>> # Todo: print results to text files, use threads

ну так сразу б уже и сделал, там делов на 10 минут.. )

заместо
Код:
...
for (my $i=0; $i < scalar @socks; $i++) 
{ 
    my ($server, $port) = split(/:/, $socks[$i]);
...
лучше использовать нечто вроде
Код:
...
while (scalar @socks) {
 my ($server, $port) = split(/:/, shift @socks);
...
особенно если треды заюзаешь..