PDA

Просмотр полной версии : как реализовать многопоточность?! perl


$p01nt
29.05.2008, 10:29
Сабж. Вот скрипт:

#! usr/bin/perl

use strict;
use LWP;

my $url='http://by.ru/login.cgi';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'login'=>'login',
'password'=>password',
'p2'=>'',
]
);

$response=$response->as_string;
my $tt=$response=~m/Location:(.*)\.cgi/;
my $checktext='http://by.ru/panel';
if ($tt!=$checktext){
print "Valide Account";
}else{
print "No valide Account";
}

И накидайте ссылок про многопоточность в перл плз

groundhog
29.05.2008, 10:32
Насяльника, а поиск уже не работает?

http://forum.antichat.ru/showpost.php?p=231760&postcount=1

$p01nt
29.05.2008, 10:33
groundhog читал уже, тема не раскрыта :(

groundhog
29.05.2008, 10:37
Хм... Да по-моему нормально написано... Дальше будут только вариации не тему:

http://nopox.wordpress.com/2007/10/06/multithreading-in-perl/

groundhog
29.05.2008, 10:38
Вот интересное обсуждение:

http://forum.sources.ru/index.php?showtopic=81962

$p01nt
29.05.2008, 10:43
покажите если можно на примере данного скрипта....

groundhog
29.05.2008, 10:50
Вот уж нет... Там всё понятно написано, одно дело помочь разобраться, и совсем другое "сделайте за меня". Я не сторонник такого подхода...

$p01nt
29.05.2008, 10:55
groundhog, дело в том что я и хочу разобратся !!! Я прошу лишь показать как это реализуется ! Можешь сделать это на примере другого МАЛЕНЬКОГО скрипта!

$p01nt
29.05.2008, 11:04
Вопрос решен! Спасибо всем кто помогал :)