Help for this page

Select Code to Download


  1. or download this
    while (my $line = <HANDLE>) {
   # do something with $line here
}
  2. or download this
    my $regex = join '|', map quotemeta, keys %g_wvr_list;
my $waived = 0;
for (@tmpArr){
    $waived++ if m/$regex/;
}