Help for this page

Select Code to Download


  1. or download this
    my $pattern = join '|', map{"\Q$_\E"}@search_terms; 
    while(my $suspect = <FTS>){
    ...
          push @delete_me, "$base_path$term";
       }
    }
    
  2. or download this
    foreach (@file_list){ # don't bother putting $_ here
      print $_, '<br>';
    }