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: