CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Advanced: Re: [mozkill] a muti-threaded web client in perl: Edit Log



mozkill
Novice

Apr 1, 2003, 4:23 PM


Views: 3542
Re: [mozkill] a muti-threaded web client in perl

ok, here is the finished product
------

#!perl.exe

use LWP;
use HTML::Parse;
use HTML::Element;
use HTTP::Request;
use Thread qw(async);
use strict;

printf "\n-------\n";

my @children;
for (my $i=0;$i<4;$i++)
{
$children[$i] = async {
getIt();
};
}

for (my $i=0;$i<4;$i++)
{
$children[$i]->join();
}

sub getIt()
{
my $ua = LWP::UserAgent->new();
$ua->agent("MyApp/0.1 ");
my $url = 'http://web.pdx.edu/~jonw';
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
my $code = $res->code;
my $content = $res->content;
if ($res->is_error())
{
printf "%s\n", $res->status_line;
}
else
{
my $content = $res->content();
}
printf "$content\n-------\n";
}


(This post was edited by mozkill on Apr 2, 2003, 9:46 AM)


Edit Log:
Post edited by mozkill (Novice) on Apr 1, 2003, 5:32 PM
Post edited by mozkill (Novice) on Apr 2, 2003, 9:34 AM
Post edited by mozkill (Novice) on Apr 2, 2003, 9:46 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives