[Perl] Новичкам: задаем вопросы

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

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
[Perl] Новичкам: задаем вопросы

Страница 106 из 156

106

Опции темы

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

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

#1051

16.04.2009, 15:21

Gaus

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

Регистрация: 08.02.2009

Сообщений: 196

Провел на форуме:
1420275

Репутация: 127

Цитата:

Сообщение от j0ker13

и еще пара вопросов)
если в строке ищешь нужное с помощью регулярки где находится несколько правильных результатов как их выводить все?)

Например при парсинге ип:

Код:

my $data = "127.0.0.1:8080";
my $pars = $data =~ /(.*)\:(.*)/;
if($pars){
print $1.":".$2."\n";
}

Думаю здесь понятно

Цитата:

а в перле какой способ быстрее чтоб запрашивать удаленную страничку?)

Если просто получить страничку (типа как в пхп file_get_contents):

Код:

use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $answ = $ua->get("http://ya.ru")->as_string;
print $answ;

#1052

16.04.2009, 21:46

ph1l1ster

Постоянный

Регистрация: 11.03.2008

Сообщений: 347

Провел на форуме:
2075230

Репутация: 462

Код:

->as_string;

Зачем ещё заголовками голову морочать
Достаточно и

Код:

->content;

Цитата:

если в строке ищешь нужное с помощью регулярки где находится несколько правильных результатов как их выводить все?)

так лучше:

Код:

@cont = $get->content =~ //g;
print join "\n", @cont;

#1053

17.04.2009, 00:41

roddik

Познающий

Регистрация: 14.01.2009

Сообщений: 93

Провел на форуме:
244235

Репутация: 39

Цитата:

Сообщение от j0ker13

и еще) например в пхп быстрее работать с помощью курла чем с сокетами. а в перле какой способ быстрее чтоб запрашивать удаленную страничку?)

Код:

use LWP::Simple qw[get];

my $page = get('http://google.com');

#1054

17.04.2009, 17:26

j0ker13

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

Регистрация: 28.07.2008

Сообщений: 199

Провел на форуме:
861008

Репутация: 58

спс всем
воспользовался этим

Цитата:

@cont = $get->content =~ //g;
print join "\n", @cont;

накопились еще некоторые вопросы)
вывод в консоль происходит только после выполнения скрипта
можно ли заставить не буферизировать данные а сразу выводить?)
типа аналога flush в пхп)

#1055

17.04.2009, 17:55

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

$|=1; в начале скрипта добавь

#1056

18.04.2009, 19:58

KrafT

Познающий

Регистрация: 29.11.2004

Сообщений: 80

Провел на форуме:
479552

Репутация: 6

У меня такая проблема. Есть скрипт. Если он отрпавляет сообщение тому ID которого несушествует то произходит crash перла. Предпологаю что ето из-за того что скрипт неможет закончить свою задачу. Как с этим боротся?

#1057

18.04.2009, 20:18

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Код покажи, иначе непонятно из-за чего такое происходит

#1058

18.04.2009, 21:27

TheSoul

Познающий

Регистрация: 12.11.2007

Сообщений: 94

Провел на форуме:
4789789

Репутация: 71

Цитата:

Сообщение от KrafT

отрпавляет сообщение тому ID которого несушествует то произходит crash перла

А если проверку сделать ? если есть то отправил если нет то берет другой id... лучше конечно чтобы код выложил.

#1059

18.04.2009, 23:32

KrafT

Познающий

Регистрация: 29.11.2004

Сообщений: 80

Провел на форуме:
479552

Репутация: 6

Код:

use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;

my $threads = 1;
my $username = '';
my $password = '';
my $msg = '...';

open BASE, '<base.txt' || die "$!\n";
chomp (my @base : shared = <BASE>);
close BASE;


my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$ua->cookie_jar($cookies);

$ua->post('http://toodoo.ru/account/login',
					{
					email => $username,
					password => $password})->as_string;

for(0..$threads) {$trl[$_] = threads->create(\&send, $_);}
for(@trl) { $_->join; }

sub send {
while (1) {
my $id = shift @base;
return if (!$id);

$ua->post('http://toodoo.ru/inbox/compose',
					{
					user_id => $id,
					message_text => $msg})->as_string;
	print "$id\n";
	sleep (1);	
	}
}

#1060

26.04.2009, 16:19

j0ker13

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

Регистрация: 28.07.2008

Сообщений: 199

Провел на форуме:
861008

Репутация: 58

как правильно разделить работу скрипта на потоки если его работа связана с увеличением одного числа
пример:

PHP код:


		
			
$thr=5;

for ($t=1;$t<4000;$t=$t+5){

for(0..$thr) {

   $trl[$_] = threads->create(\&func);

}

for(0..$thr) {

   $trl[$_]->join;

}}

func{

$t++;

....

}

в func работа с этим числом(а точнее дамп таблы через лимит mysql)
или так?

PHP код:


		
			
@arr=(1..4000);

while(@arr){

for(0..$thr) {

   $trl[$_] = threads->create(\&func);

}

for(0..$thr) {

   $trl[$_]->join;

}}

}

func {

$t=shift(@arr);

...

}

оба способа работают но жутко тормозят. первый сжирает много памяти... или как оптимизировать хоть один? или есть более красивее варианты?

Страница 106 из 156

106

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[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)

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