Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
my $ouput = `egrep -f patternfile testfile > output`;
print "$output\n";

Select or download this

#!/usr/bin/perl
my $p = 'patternfile';
...

my $ouput = `egrep -f $p $t > $o`;
print "$output\n";