Help for this page

Select Code to Download


  1. or download this
    print $_ if( $_ =~ m/$keyword/ );
  2. or download this
    my $pattern = join( '|', @keywords );
if( $_ =~ m/$pattern/ )
  3. or download this
    use strict;
use warnings;
...
somelines...
somewords...
keyword2...somewords...
  4. or download this
    pattern = [keyword1|keyword2|keyword3]
somewords...keyword1..somewords
keyword2...somewords...