我有代码：

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

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

谢谢.