Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Parallel LWP usage

by dk (Chaplain)
on Apr 21, 2009 at 10:17 UTC ( #758928=note: print w/replies, xml ) Need Help??


in reply to Parallel LWP usage

Possibly IO::Lambda would be able to help you. One needs to invest in learning the syntax though.
use strict; use HTTP::Request; use IO::Lambda qw(:lambda); use IO::Lambda::HTTP qw(http_request); lambda { for my $url ( 'http://www.perl.com', 'http://www.google.com', 'http://www.yahoo.com', ) { context( HTTP::Request-> new(GET => $url), # list of possible options: # # async_dns => 1, # auth => 'Basic', username => 'A', password => 'B +', # conn_cache => shared LWP::ConnCache instance # keep_alive => 1, # proxy => [ '127.0.0.1', 8080 ], # timeout => 60, # max_redirect => 100, ); http_request { my $res = shift; if ( ref($res) and ref($res) eq 'HTTP::Response') { print "$url: ", length($res-> content), " bytes\n"; } else { print "$url: error :$res\n"; } } } }-> wait;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://758928]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2020-04-05 10:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The most amusing oxymoron is:
















    Results (34 votes). Check out past polls.

    Notices?