2007-11-24から1日間の記事一覧
練習問題の回答をメモ。 ex12-1 #!/usr/bin/perl use strict; print "Enter a directory name: "; chomp(my $dir = <STDIN>); if ($dir =~ /^\s*$/) { chdir or die "Cannot chdir to home directory: $!"; } else { chdir "$dir" or die "Cannot chdir to '$dir': </stdin>…