将子程序传递给 Perl 子程序

Question

我正在尝试制作一个模仿 Perl6/Raku 的 dir 的子程序。 dir 可以非常方便快捷地搜索目录，目录中有文件测试。

我正在尝试向 dir 添加递归选项。

我有一个可以完成此操作的脚本，但我正在尝试使用我已经知道有效的 File::Find 脚本添加递归选项：

use File::Find;
my @files;
find({ wanted => \&process_file, no_chdir => 1 }, '.');
sub process_file {
    if ((-f $_) && ($_ =~ m/\.pl$/)) {#various tests on the files
            push @files, $_;
#        print "This is a file: $_\n";
    }
}

但是，我想在一个子例程中完成所有事情。

我试过这个：

use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';
use Carp 'confess';
use File::Find 'find';

sub dir { # a Perl5 mimic of Perl6/Raku's "dir"
    my %args = ( # default arguments listed below
        tests => 'f', dir => '.', regex   => '.', recursive => 0,
    @_, # argument pair list goes here
    );
    if ($args{tests} =~ m/[^rwxoRWXOezfdlpSbctugkTB]/){# sMAC returns are non-boolean, and are excluded
        confess "There are some unrecognized characters in $args{tests}";
    }
    my @items = split '', $args{tests};
    my $tests = '-' . join (' -', @items);
    undef @items;
    $args{regex} = qr/$args{regex}/;
    opendir my $dh, $args{dir} or die "Can't opendir on $args{dir}: $!";
    while (my $item = readdir $dh) {
        if (($item !~ $args{regex}) or ($item =~ m/^\.{1,2}$/)) { next  }
        my $i = "$args{dir}/$item";
        if (not defined $i) {
            confess "$i isn't defined.";
        }
        my $rv = eval "${tests} $i" || 0;
        if ($rv == 0) { next }
        if ($args{dir} eq '.') {
            push @items, $item
        } else {
            push @items, $i
        }
    }
# this is the new part, and what doesn't work
    if ($args{recursive} == 1) {
        find({
            wanted => \sub {
                if ((eval "${tests} $_") && ($_ =~ /$args{regex}/)) {
                    push @items, $_;
                }
            },
            chdir => 1,
            '.'
        });
    }
    @items
}
foreach my $pl (dir(recursive => 1, regex => '\.pl$')) {
    say $pl
}

这给出了一个错误：

Odd number of elements in anonymous hash at clean.pl line 44

我认为这是因为底部的 find 函数，如错误所示。

Passing one subroutine to another subroutine 与我的问题有点相似，但我不知道如何将其应用到我的案例中。

传递 wanted => sub 和 wanted => \sub 给出相同的错误。

如何让这个 wanted 子例程无错误地传递给 find？

Answer 1

Perl 尝试将每个奇数参数用作散列键，将每个偶数参数用作散列值，因此对于奇数个参数，您会得到“奇数个参数”错误，因为您将所有参数都放入 find 在匿名哈希引用中。文件名/路径没有哈希键，因此将其移出哈希引用。

然后像这样传递 wanted 例程：

wanted => sub { ... }

就是说，我的 File::Find 只知道 no_chdir，不知道 chdir，所以你可能想切换值。

这对我有用：

find(
    {
        wanted => sub {
            if ((eval "${tests} $_") && ($_ =~ /$args{regex}/)) {
                push @items, $_;
            }
        },
        no_chdir => 0,
    },
    '.'    # File outside the hash ref
);

将子程序传递给 Perl 子程序

Passing Subroutine to Perl Subroutine

perl

subroutine