37,720
社区成员
发帖
与我相关
我的任务
分享
#! perl -w
use strict;
use 5.010;
print "Input your diretory: ";
chomp(my $dir = <STDIN>);
if ($dir =~ /^\s*$/)
{
chdir or die "Can't chdir to your home diretory: $!";
}
else
{
chdir $dir or die "Can't open your diretory: $!";
}
my @files = <*>;
for (@files)
{
print "$_\n";
}