Re^4: Only last record is written to the output file instead of all records

Better to use fileno to test filehandles as a filehandle can be defined and closed:

$ perl -le'
print defined $FH ? "defined" : "not defined";       
print fileno $FH ? "open" : "not open";              
open my $FH, "<", "test.txt" or die "test.txt: $!";
print defined $FH ? "defined" : "not defined";
print fileno $FH ? "open" : "not open";        
close $FH;                                     
print defined $FH ? "defined" : "not defined"; 
print fileno $FH ? "open" : "not open";
'
not defined
not open
defined
open
defined
not open
[download]

Comment on Re^4: Only last record is written to the output file instead of all records Download Code