将子程序传递给 Perl 子程序

问题描述

我正在尝试制作一个模仿 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？

解决方法

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
);