Help for this page

Select Code to Download


  1. or download this
    # Building the array of terms:
    
    ...
        chomp $term;
        push @terms, $term;
    }
    
  2. or download this
    # Printing sources that do not match of of the terms:
    
    ...
        chomp $source;
        print "$source\n" unless grep { $source =~ /$_/ } @terms;
    }