Examples 40-41

#Learning Perl Appendix A, Exercise 10.3

while (<>) {

chomp; # eliminate the newline

print "$_ is readable\n" if -r;

print "$_ is writable\n" if -w;

print "$_ is executable\n" if -x;

print "$_ does not exist\n" unless -e;

}

#Learning Perl Appendix A, Exercise 10.4

while (<>) {

chomp;

$age = -M;

if ($oldest_age < $age) {

$oldest_name = $_;

$oldest_age = $age;

}

print "The oldest file is $oldest_name ",

"and is $oldest_age days old.\n";