Perl File::Find: 先列出目录中的所有文件然后跳转到下一个目录？

Question

我想(通过使用 File::Find)首先列出当前目录中的所有文件，然后跳转到子目录。有可能吗？

Answer 1

在进入子目录之前使用预处理选项对每个目录中的文件进行处理:

use strict;
use warnings;
use File::Find 'find';

find(
    {
        'wanted' => sub { print "$File::Find::name\n" },
        'preprocess' => sub { sort { -d $a <=> -d $b } @_ }
    },
    '.'
);

虽然为了避免额外的统计数据，但应该是:

sub { map $_->[0], sort { $a->[1] <=> $b->[1] } map [ $_, -d $_ ], @_ }