Win 2003 + Perl
Собственно сабж, такая проблем - есть скрипт, под Ubuntu и XP он работает на Ура! А под Win 2003 не пашет(нужно очень запустить на 2003 т.к. дедик :D ) Версия компиляторов одна и та же.
Сам скрипт:
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% |
