使用 Perl 的 File::Find 时如何将参数传递给所需的函数？

Question

可能的重复：
如何将参数传递给处理每个文件的 File::Find 子例程？

可以使用 Perl 的 File: :Find 模块如下：

find( \&wanted, @directories);

我们如何向 wanted 函数添加参数？

例如，我想遍历 /tmp 中的文件，从每个文件中提取一些信息，并将结果存储到不同的目录中。输出目录应作为参数给出。

Answer 1

您使用闭包：

use File::Copy;

my $outdir= "/home/me/saved_from_tmp";
find( sub { copy_to( $outdir, $_); }, '/tmp');

sub copy_to
  { my( $destination_dir, $file)= @_;
    copy $file, "$destination_dir/$file" 
      or die "could not copy '$file' to '$destination_dir/$file': $!";
  }

Answer 2

您可以创建您喜欢的任何类型的代码参考。您不必使用对命名子例程的引用。有关如何执行此操作的许多示例，请参阅我的 File:: Find::Closures 模块。我创建该模块来准确回答这个问题。

Answer 3

File::Find 的合约指定了传递给 &想要。

所需的函数不接受任何参数，而是通过变量集合来完成其工作。

• $File::Find::dir 是当前目录名称，
• $_ 是该目录中的当前文件名
• $File::Find::name 是文件的完整路径名。

如果您想在回调中提供额外的信息，您可以 创建一个子引用，使用所需的参数调用您想要的子。