Help for this page

Select Code to Download


  1. or download this
    package Spider::URL;
use strict;
...
        return $object;
}
1;
  2. or download this
    package Spider::LWP;

...
        }
        if($#keys < 0){$self->{completed} = 1;}
}
  3. or download this
    #!/usr/bin/perl
use lib ".";
...
       $ua->wait(300); # block until we are all finished or until ever
+ything has stopped for 5 minutes
}