Hi,
To write/append to a file you need to open another filehandle (for $nf in your case).
Something like this:
open NEWFILE, ">$nf" or die "Can't open $nf";
To write to this filehandle:
print NEWFILE @lines;
You also need to close it again (close NEWFILE; ).
To append to an already existing file, use >> instead of >.
Your example code would look like this:
Code:
#!/usr/bin/perl -w
my $file="file.log";
my $nf="nf.log";
open NEWFILE, ">$nf" or die "Can't open $nf";
open (FILE, "$file") or die ("can't open this: $!");
my @lines=<FILE>;
print NEWFILE @lines;
close (FILE) or die "FILE can't be closed: $!";
close NEWFILE;
Hope this helps.