在书签上运行'；链接检查'；，共2个

Posted 2021-02-26

source for perl file that is step 2

#!/usr/bin/perl
 
  require LWP::Parallel::UserAgent;
  use HTTP::Request; 
 
  my $pua = LWP::Parallel::UserAgent->new();
  $pua->in_order  (1);  # handle requests in order of registration
  $pua->duplicates(0);  # ignore duplicates
  $pua->timeout   (8);  # in seconds
  $pua->redirect  (1);  # follow redirects
   $pua->max_hosts(5); # sets maximum number of locations accessed in parallel
  $pua->max_req  (5); # sets maximum number of parallel requests per host
 
  my(@reqs) = <>; # read input file from step 1 
 
   foreach my $req (@reqs) {
#    print "Registering $req 
";
    if ( my $res = $pua->register (HTTP::Request->new('GET', $req) ) ) { 
        print STDERR $res->error_as_html; 
    }  
  }
  my $entries = $pua->wait();
 
  foreach (keys %$entries) {
    my $res = $entries->{$_}->response;
    print "Answer for '",$res->request->url, "' was 	", $res->code,": ",
          $res->message,"
";
  }