Mega Code Archive

 

Categories / Perl / File

 

File testing script

#!/usr/bin/perl $file=perl.test; print "File is readable\n" if -r  $file; print "File is writeable\n" if -w  $file; print "File is executable\n" if -x  $file; print "File is a regular file\n" if -f  $file; print "File is a directory\n" if -d $file; print "File is text file\n" if -T $file; printf "File was last modified %f days ago.\n", -M $file; print "File has been accessed in the last 12 hours.\n" if -M <= 12; print "File has read, write, and execute set.\n" if -r $file && -w _ && -x _; stat("afile");  # stat another file print "File is a set user id program.\n" if  -u _;# underscore evaluates to last file stat'ed print "File is zero size.\n" if -z_;