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

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/ );
}
[download]

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

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

Replies are listed 'Best First'.
Re^2: Perl script to find particular string and save those lines in another file? by sumathigokul (Acolyte) on May 05, 2015 at 06:11 UTC
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);` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Perl script to find particular string and save those lines in another file?
by sumathigokul (Acolyte) on May 05, 2015 at 06:11 UTC

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);
[download]

[reply]
[d/l]