使用 Perl 查找文件

File::Find and the wanted 子程序

这个问题比原来的标题（“子例程的原型和前向声明”！）要简单得多。我希望答案，无论多么简单，都能帮助我理解子例程/函数、原型和范围以及File::Find module.

使用 Perl，子例程几乎可以出现在任何地方，并且通常不需要进行前向声明（除非子例程声明了原型，我不确定如何在 Perl 中以“标准”方式执行此操作）。对于我通常使用 Perl 所做的事情来说，这些不同的运行方式之间几乎没有什么区别somefunction:

sub somefunction;  # Forward declares the function
&somefunction; 
somefunction();
somefunction;   # Bare word warning under `strict subs`

我经常使用find2perl生成我将其复制/破解到脚本部分的代码。这很可能是一种糟糕的风格，现在我的脏衣服被公开了，但就这样吧:-)File::Find the wanted函数是必需的子程序 -find2perl创建它并添加sub wanted;到它创建的结果脚本。有时，当我编辑脚本时，我会删除“sub" from sub wanted最终结果是&wanted; or wanted();。但如果没有sub wanted;转发声明表我收到此警告：

Use of uninitialized value $_ in lstat at findscript.pl line 29

我的问题是：为什么会发生这种情况？这是一个真正的问题吗？这“只是一个警告”，但我想更好地理解它。

• 文档和代码说$_位于内部sub wanted {}。为什么如果我使用它会是未定义的wanted();代替sub wanted;?
• Is wanted在某处使用原型？我是否遗漏了一些明显的东西Find/File.pm?
• 是不是因为wanted返回代码参考？ （？？？）

我的猜测是，前向声明表格“初始化”wanted以某种方式，以便第一次使用时不会有空的默认变量。我想这就是原型——甚至 Perl 原型，比如它们现有的——的工作方式。我尝试通过 Perl 源代码进行 grep 来了解什么sub当使用调用函数时正在执行的操作sub function代替function()，但目前这可能超出了我的能力范围。

非常感谢任何加深（并加速）我对此理解的帮助。

EDIT:这是一个Stack Overflow 上最近的示例脚本我使用创建的find2perl的输出。如果您删除sub from sub wanted;你应该得到同样的错误。

EDIT:正如我在下面的评论中指出的（但我也会在这里标记它）：几个月来我一直在使用Path::Iterator::Rule代替File::Find。这个需要perl >5.10，但我从来不需要在奇怪的“从不升级”的站点上部署生产代码，5.8.*只有政策如此Path::Iterator::Rule已经成为我永远不想放弃的模块之一。也有用的是Path::Class。干杯。

我不太喜欢 File::Find。它就是行不通right. The find命令不会返回文件列表，因此您必须使用非本地的你的数组变量find捕获您找到的文件列表（不好），或者将整个程序放入您的wanted子例程（甚至更糟）。另外，单独的子例程意味着您的逻辑与您的逻辑是分开的find命令。实在是太丑了。

我所做的是内联我的wanted我里面的子程序find命令。子例程与查找保持一致。另外，我的非本地的数组变量现在只是我的一部分find命令并且看起来没那么糟糕

这是我的处理方式File::Find-- 假设我想要的文件具有.pl suffix:

my @file_list;
find ( sub {
    return unless -f;       #Must be a file
    return unless /\.pl$/;  #Must end with `.pl` suffix
    push @file_list, $File::Find::name;
}, $directory );

# At this point, @file_list contains all of the files I found.

这与以下完全相同：

my @file_list;

find ( \&wanted, $directory );

sub wanted {
    return unless -f;
    return unless /\.pl$/;
    push @file_list, $File::Find::name;
}

# At this point, @file_list contains all of the files I found.

内衬看起来更好。而且，它将我的代码放在一起。另外，我的非本地的数组变量看起来并不那么奇怪。

我也喜欢利用shorter以这种特殊方式的语法。通常，我不喜欢使用推断$_，但在这种情况下，它使代码更容易阅读。我原来的通缉是这样的：

sub wanted {
    my $file_name = $_;
    if ( -f $file_name and $file_name =~ /\.pl$/ ) {
        push @file_list, $File::Find::name;
    }
}

File::Find使用起来不是那么棘手。你只需要记住：

• 当您找到不需要的文件时，可以使用return转到下一个文件。
• $_包含不带目录的文件名，您可以使用它来测试文件。
• 该文件的全名是$File::Find::name.
• 该文件的目录是$File::Find::dir.

而且，最简单的方法是将所需的文件推送到数组中，然后在程序中稍后使用该数组。