Code:
open(INPUTFILE, "<inputfilename") or die "Can't open input file";
open(OUTFILE, ">outputfilename") or die "Can't open output file";
@lines=<INPUTFILE>;
@greplines=grep(/"Line to search for"/, @lines);
if (@greplines)
{
foreach $match (@greplines)
{
print OUTFILE $match."\n";
Leave a comment: