Help for this page

Select Code to Download


  1. or download this
    $ time perl threads_yours.pl 
real    7m13.312s
user    2m1.484s
...
real    0m2.209s
user    0m6.028s
sys     0m0.604s
  2. or download this
    $ uniq -c outfile | head
   2275 Thread 1
      1 ThreaThread 2
...
      1 Td 1
   1364 Thread 1
      1 Thread 1hread 2
  3. or download this
    #!/usr/bin/perl 
use strict;
use POE qw(Component::Client::HTTP);
...
);
POE::Kernel->run;
close $fh;