linux readdir对结果排序,Perl readdir按顺序排列

有没有办法保证readdir返回的列表中的订单？

我有代码：

opendir(my $DIR, $src) or die "Error opening $src";

# Loop for each file in the directory

while (my $file = readdir($DIR))

{

print "$file\n";

}

但它以随机顺序返回.现在我知道通过快速谷歌搜索有很多解决方案,但我找不到我需要的确切订单..

基本上我希望文件夹显示为FIRST或LAST,而不是文件之间.

例如,现在,如果我有文件夹结构：

folder

folder

file1

file2

file3

我得到了结果：

file2

folder

folder

file1

file3

我真的想要的时候：

folder

folder

file1

file2

file3

要么：

file1

file2

file3

folder

folder

有没有办法实现这个目标？

谢谢.