Help for this page

Select Code to Download


  1. or download this
            if (/gateway/ || /TIMESTAMP/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }
  2. or download this
            if (/gateway/ && /TIMESTAMP/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }
  3. or download this
    my ($exclude_re) = map qr/$_/,
                   join '|',
                   map quotemeta,
                   @names;
  4. or download this
    use Regexp::List qw( );
my $exclude_re = Regexp::List->new()->list2re(@names);
  5. or download this
            if (/gateway/ && /TIMESTAMP/ && !/$exclude_re/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }