in reply to RE: RE: opening a file
in thread opening a file
#!/usr/bin/perl -w use strict; my @files = ("/mnt/csphil/home/fburns/domereports/Weekly_Reports/de-nj +-md", "/mnt/csphil/home/fburns/domereports/Weekly_Reports/pa_only", " +/mnt/csphil/home/fburns/domereports/Weekly_Reports/phila_market"); my $file; foreach $file (@files) { if (! -e $file) { warn "$file does not exist"; next; } warn "$file is unreadable" unless -r $file; warn "$file has zero size" if -z $file; }
|
|---|