Форум АНТИЧАТ - Win 2003 + Perl

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Win 2003 + Perl

Опции темы

Поиск в этой теме

Опции просмотра

Win 2003 + Perl

06.01.2009, 13:46

$p01nt

Участник форума

Регистрация: 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%

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Продажа дедиков	Allont	Хостинг, Dedicated, VDS, Сервера - Покупка, продажа	119	16.08.2009 11:44
Os - моя крепость	Elekt	Избранное	32	06.08.2009 15:10
Продажа дедиков!!!	ppc	Хостинг, Dedicated, VDS, Сервера - Покупка, продажа	21	07.04.2009 20:37
Books Perl	FRAGNATIC	PHP, PERL, MySQL, JavaScript	0	11.08.2005 16:58

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход