大家帮忙看看这两段程序

print "which directory?\n";

chomp(my $dir = <>;

if ( $dir =~ /^\s*$/ ){
  chdir or die "Can't chdir to your home directory!";
}else{
  chdir $dir or die "can't change to $dir!\n";
}

my @files = <*>;

foreach(@files){
  print "$_\n";
}



print "which directory?\n";

chomp(my $dir = <>;

if ( $dir =~ /^\s*$/ ){
  chdir or die "Can't chdir to your home directory!";
}else{
  chdir $dir or die "can't change to $dir!\n";
}

my @files = <*>;

foreach(sort @files){
  print "$_\n";
}

我的运行结果是一样

你想要说什么....

sort过的资料,再sort一次吗?...

lz是想问<>和sort 是不是用同样的排序规则？

正如楼上所说的，我就想问这个问题

看结果是一样的啊，应该默认是字符顺序排序吧