of course once we get into checking the returns, we may find chdir does all the testing we need already ...
use strict;
use warnings;
use Cwd;
my $dir = shift;
chdir $dir or die "Couldn't chdir $dir: $!\n";
print "OK, in ". getcwd . "\n";
And the outut
# ./change.pl Downloads/
OK, in /home/Random/Downloads
# ./perl change.pl foo
Couldn't chdir foo: No such file or directory
# ./mkdir bar
# ./chmod 000 bar
# ./perl change.pl bar
Couldn't chdir bar: Permission denied
Cheers, R.
Pereant, qui ante nos nostra dixerunt!
|