Help for this page

Select Code to Download


  1. or download this
    sub ReadURLS {
      my ($queue,$filename) = @_;
    ...
      close $outFH;
      return 1;
    }
    
  2. or download this
    my $nr_workers = 5; #set this value for the number of side by side dow
    +nloaders and parsers. Better yet, take it as an argument
    my $urlfile = "url_planets.txt"; # see comment about arguments
    ...
    }
    
    # At this point, barring some horrible catastrophe, the specified $out
    +file should have the desired output.