in reply to How do I skip reading files further with missing data?
Use the -s test:
use strict; use warnings; for my $file (qw/bar.txt barwithdata.txt/) { next unless -s $file > 114; print "file $file has data\n"; }
Note that 114 is the number for my O/S. Yours may differ due to different EOL/EOF patterns.
|
|---|