Re: doing a search and replace on a large file


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: doing a search and replace on a large file

by b10m (Vicar)

on Apr 14, 2004 at 12:48 UTC ( [id://345029]=note: print w/replies, xml )

Need Help??

in reply to Re: doing a search and replace on a large file
in thread doing a search and replace on a large file

Minor tweak: since the OP wants to "delete" lines that do not match a certain pattern, I'd change the unless into an if. That way, you "save" the lines that do match the pattern ;-)

open IN, "<$bigfile" or die "Can't open $bigfile: $!\n";
open OUT, ">$newfile" or die "Can't open $newfile: $!\n";
while(<IN>) {
   print OUT $_ if /the pattern in question/;
}
close OUT;
close IN;
[download]

--
b10m

All code is usually tested, but rarely trusted.