Help for this page

Select Code to Download


  1. or download this
    $entry[6] =~ m{^http://.*v1=(.*)&v2=(.*)&v3=.*$} or do {
    warn "Skipping unparseable line $. :\n"
...
my $url = "$1$2";

$STATUS{$http_code}{$url}{$edate[0]}{$edate[1]}{$edate[2]}{$edate[3]}+
++;
  2. or download this
    my $url = ( $entry[6] =~ m{^http://.*v1=(.*)&v2=(.*)&v3=.*$} )
        ? "$1$2" : undef ;
...
}

$STATUS{$http_code}{$url}{$edate[0]}{$edate[1]}{$edate[2]}{$edate[3]}+
++;