ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу [Perl] Новичкам: задаем вопросы
   
Ответ
Страница 88 из 156 « Первая < 3878 84 85 86 87 88 89 90 91 92 98138 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #871  
Старый 05.01.2009, 15:04
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
Код:
use LWP::Simple;
use strict;
use threads;
use threads::shared;

my $start : shared=1;
my $finish : shared=10;
my $potok=5;
my @trl;

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;
		
	}
}
 
Ответить с цитированием

  #872  
Старый 05.01.2009, 15:31
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
Теперь он очень быстро получает странички (Выводит на стдоут search on url: блаблабла
и тут начинает висеть (даже когда 5 потоков) + ничего не пишет в файл, минуты через 3 развисает и едет дальше...
Таск менеджер показывает бездействие системы 98%!!

PHP код:
my $start : shared=20;
 my $finish : shared=100;
 my $potok=5;
 my @trl;

 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;
 open(TEXT,">>text.txt");
 foreach (@massiv) { print TEXT $_ . "\n"; }
 }
 } 
Последний раз редактировалось $p01nt; 05.01.2009 в 16:12..
 
Ответить с цитированием

  #873  
Старый 06.01.2009, 00:18
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
С вопросом который выше - разобрался(проблема была в дедике)), но у меня такое ощущение ... то что парсер не пашет или пашет не правильно Он качает 100 страниц, а парсит из них только 1! Потом опять 100, парсит одну.
Код выше.
 
Ответить с цитированием

  #874  
Старый 07.01.2009, 05:57
or1
Banned
Регистрация: 07.09.2008
Сообщений: 48
С нами: 9303416

Репутация: -1
По умолчанию
подскажите плз где найти можно Encoding and Decoding для перла ,
Encoding and Decoding URLs via perl (including decimal to hex conversion)

описание:
http://glennf.com/writing/hexadecimal.url.encoding.html
Последний раз редактировалось or1; 07.01.2009 в 21:11..
 
Ответить с цитированием

  #875  
Старый 07.01.2009, 12:39
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
or, обусификация? О_О или регулярные выражения? что то я тебя не понял
 
Ответить с цитированием

  #876  
Старый 07.01.2009, 21:09
or1
Banned
Регистрация: 07.09.2008
Сообщений: 48
С нами: 9303416

Репутация: -1
По умолчанию
есть же вообще Encoding and Decoding URLs via perl "перла "или нет так почему такая статья существует ,прочетать можно тут и вообще не надо отвечать я сам разобрался

Encoding and Decoding URLs via perl (including decimal to hex conversion)
http://glennf.com/writing/hexadecimal.url.encoding.html
 
Ответить с цитированием

  #877  
Старый 08.01.2009, 14:39
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
Как подключить модуль к Perl не устанавливая его?
Проблема с Curl, в скрипте:
use WWW::Curl::easy;
Качаю Curl с cpan ( curl.pm) в ту же папку где скрипт и заменяю строчку
use WWW::Curl::easy;
на
use Curl;
но выдает ашипку:
Цитата:
Can't locate loadable object for module WWW::Curl in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at Curl.pm line 12
BEGIN failed--compilation aborted at Curl.pm line 12.
Compilation failed in require at Client.pm line 4.
BEGIN failed--compilation aborted at Client.pm line 4.
Compilation failed in require at xxx.pl line 9.
BEGIN failed--compilation aborted at xxx.pl line 9.
Как пропавить?

P.S. устанавливать модуль нельзя
Последний раз редактировалось $p01nt; 08.01.2009 в 14:41..
 
Ответить с цитированием

  #878  
Старый 08.01.2009, 15:26
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
Цитата:
Качаю Curl с cpan ( curl.pm) в ту же папку где скрипт и заменяю строчку
А папка со скриптом в списке @INC есть?)

Цитата:
устанавливать модуль нельзя
А чё так?

P.S. Зачем вообще этот модуль тебе?
 
Ответить с цитированием

  #879  
Старый 08.01.2009, 15:50
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
Обьясняю ситуацию, пишу скрипт автореггер, к нему нужно прикрутить антикапчу, скрипт антикапчи использует cURL, мой скрипт будет запускатся на множестве дедиков, на каждый ставить курл - нет желания.
Kaimi как правильно добавить папку?
 
Ответить с цитированием

  #880  
Старый 08.01.2009, 16:02
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию
Как вообще поставить cURL ? вообще ни как не хочет ставиться
 
Ответить с цитированием
Ответ
Страница 88 из 156 « Первая < 3878 84 85 86 87 88 89 90 91 92 98138 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[c/c++] Новичкам: задаем вопросы _Great_ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 5421 21.04.2026 07:37
[php] Новичкам: задаем вопросы _Great_ PHP 16396 17.06.2010 21:19
Вопросы по Ipb 2.0 Voodoo_People Уязвимости CMS / форумов 26 15.02.2005 22:57



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


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




ANTICHAT ™ © 2001- Antichat Kft.