Re: Perl script to find particular string and save those lines in another file?

[graff]

You seem to be opening the "NEW" file handle after you've been trying to write to it. Trying opening "NEW" before the "for" loop.

(Also, it's better to do it like this:

use strict;

my $find = "2";
open( NEW, ">", "new.txt" ) or die "..."
open( FILE, "<", "high_fanout.txt") or die "..."
while (<FILE>) {
   print NEW if ( /$find/ );
}

(updated to "use strict" and add "my" for the one variable)

[sumathigokul]

Thank you, this code works.

use strict;
my $find = "2";
open (NEW, ">", "new.txt" ) or die "could not open:$!";
open (FILE, "<", "high_fanout.txt") or die "could not open:$!";
while (<FILE>) {
print NEW if (/$find/);
}
close (FILE);
close (NEW);