Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: simple multithreading with curl

by kennethk (Abbot)
on May 19, 2013 at 18:07 UTC ( #1034239=note: print w/replies, xml ) Need Help??

in reply to simple multithreading with curl

What did your Parallel::ForkManager code look like? Why didn't it work? We can't debug what we never see.

Why are you using a command-line call to curl when LWP::UserAgent does all this in Perl, and gives you more convenient error handling?

Why does it matter that you are downloading in series rather than parallel? Given how much more complicated any parallel/threaded code is, the time penalty for just waiting for the download is probably lower than the cost of your time in trying to code it and get it working.

All that having been said, threads is core and will probably get your job done with the minimum of fuss. Demo code:

use strict; use warnings; use LWP::UserAgent; use threads; my @websites = ( '', '', '', '', ); my @threads; for my $url (@websites) { push @threads, threads->create(\&fetch, $url); } my @pages; for my $thread (@threads) { push @pages, $thread->join; } sub fetch { my $url = shift; my $ua = LWP::UserAgent->new; my $result = $ua->get($url); return $result->is_success ? $result->decoded_content : "Page retr +ieval failed"; }
or, if you are comfortable w/ map,
my @pages = map $_->join, map threads->create(\&fetch, $_), @websites;

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1034239]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2018-05-27 17:53 GMT
Find Nodes?
    Voting Booth?