Examples 46-47

#Learning Perl Appendix A, Exercise 12.2a (using directory handle)

print "Where to? ";

chomp($newdir = <STDIN>);

chdir($newdir) ||

die "Cannot chdir to $newdir: $!";

opendir(DOT,".") ||

die "Cannot opendir . (serious dainbramage): $!";

foreach (sort readdir(DOT)) {

print "$_\n";

}

closedir(DOT);

#Learning Perl Appendix A, Exercise 12.2b (using globbing)

print "Where to? ";

chomp($newdir = <STDIN>);

chdir($newdir) || die "Cannot chdir to $newdir: $!";

foreach (sort <* .*>) {

print "$_\n";

}