
330
|
附录
A
2.
下面是实现方法之一:
print "Which directory? (Default is your home directory) ";
chomp(my $dir = <STDIN>);
if ($dir =~ /\A\s*\z/) { #
若是空行
chdir or die "Can't chdir to your home directory: $!";
} else {
chdir $dir or die "Can't chdir to '$dir': $!";
}
my @files = <.* *>; ##
现在加上了
.*
foreach (sort @files) { ##
现在排序
print "$_\n";
}
和前一题有两点差别:第一,这次的
glob
操作包含了“点号星号”,它会匹配
所有以点号开头的文件名;第二,我们必须对所得到的列表进行排序,因为取出
的列表中,以点号开头的文件名会和不以点号开头的文件名交错排列,看起来比
较凌乱,排序之后会清楚很多。
3.
下面是实现方法之一:
print 'Which directory? (Default is your home directory) ';
chomp(my $dir = <STDIN>);
if ($dir =~ /\A\s*\z/) { #
若是空行
chdir or die "Can't chdir to your home directory: $!";
} else {