Alwanza: Homework for Perl Course: Cwd Perl Module

Example 3

#!/path/to/perl

use Cwd;    use strict;

while(1) {

     print "\nWhat directory do you wish to be in? (or q to quit)  ";

     chomp( my $dir = <STDIN>);

     last if ($dir =~ /^[Qq]$/);

     opendir(NEXTDIR, $dir) or die "Quitting. Cannot open $dir $!\n";

     chdir $dir or die "Quitting. Cannot chdir $dir $!\n";

     my $newdir = cwd;

     print "\nThe current working directory is $newdir\n";

     print "View contents   (y or n)   ";

     chomp( my $viewIt = <STDIN>);

     if ($viewIt =~ /^[yY]/) {

         my @contents = readdir NEXTDIR;

         my $listme = join("\n", @contents);

         print "$listme\n";

    }

}

closedir (NEXTDIR);

print "Quitting by user request.\n";

exit (0);