#!/usr/bin/perl --

use strict;
use warnings;

use threads;
use threads::shared;

use WWW::Mechanize 1.60;

#~ Main(@ARGV);
Main(
  qw'
    http://yahoo.com/
    http://google.com/
    http://cpan.org/
    http://ERROR/
    '
);
exit(0);

sub DEBUG {

#~     print STDERR join ' ', threads->tid, scalar gmtime, @_, "\n";
}

sub Main {
  my @tit;

  for my $url (@_) {
##!IMPORTANT! sets THREAD CONTEXT
##!! if context is void, join returns undef
    my $thr = threads->create( \&GET, $url );
  }

  while ( threads->list ) {
    for my $thr ( threads->list ) {
      my $joi = $thr->join;
      my $err = $thr->error;
      push @tit, $err || $joi;
    }

    DEBUG( "threads::running",  0 + threads::running );
    DEBUG( "threads::joinable", 0 + threads::joinable );
    sleep 1;
  } ## end while ( threads->list )

  print join "\n", @tit, ( time - $^T ) . " seconds\n";
} ## end sub Main

sub GET {
  my ($url) = shift;

  DEBUG($url);

  my $ua = WWW::Mechanize->new( autocheck => 1 );
  $ua->get($url);

  DEBUG( $url, $ua->title );

  return $ua->title;
} ## end sub GET

__END__

[download]

In reply to Re^2: parallel HTTP::Request by Anonymous Monk
in thread parallel HTTP::Request by RedGrinGo

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.