Help for this page

Select Code to Download


  1. or download this
    foreach (split "\n", $web) {
        if (m/(log_id\=(\d*)\&.*?Label Defect)/m) {
            #... etc
        }
    }
    
  2. or download this
    {
        open my $foo, '<', \$web or die $!;
        while (<$foo>) {
    ...
            }
        }
    }