06.01.2009, 13:46
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
Win 2003 + Perl
Собственно сабж, такая проблем - есть скрипт, под Ubuntu и XP он работает на Ура! А под Win 2003 не пашет(нужно очень запустить на 2003 т.к. дедик  ) Версия компиляторов одна и та же.
Сам скрипт:
PHP код:
use LWP::Simple;
use strict;
use threads;
use threads::shared;
my $start : shared=20;
my $finish : shared=100;
my $potok=5;
my @trl;
open(TEXT,">>text.txt");
for(0..$potok-1) {$trl[$_] = threads->create(&pars);}
for(@trl) { $_->join; }
sub pars {
while ($start <= $finish){
my $url=undef;
{lock($start); $url ="url/$start/"; ++$start;}
print "Search on URL: $url\n";
my $response=get $url;
my @massiv=$response=~m/регулярка/ig;
foreach (@massiv) { print TEXT $_ . "\n"; }
}
}
Он только выводит на экран Search on URL: и ссылка. А вот результат парсинга в файл не пишет  Хотя результат есть 100% |
|
|