http://qs321.pair.com?node_id=1199980


in reply to Re^2: Help with exercise
in thread Help with exercise

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!