论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-11-06 08:41 |只看该作者 |倒序浏览

#!c:/perl/perl.exe

use strict;
use warnings;

use File::Find;
use File::Copy;

my $path = 'd:/data';

foreach my $test(qw/a b c/){
  #print "$test\n";
  find(\&doit('********************'),$path);
}

find(\&doit,$path);

sub doit {
  my $val = shift;
  print "param passed: $val";
  print "$File::Find::name\n";
}

参数传如了，但是Find模块出错了。
Not a CODE reference at C:/Perl/lib/File/Find.pm line 825.
请问，有啥办法能让wanted函数可以接收参数呢？翻了这个模块的在线文档，似乎没有？
多谢！

文库|博客

qshllxfx

稍有积蓄

论坛徽章:: 1

2楼 [报告]

发表于 2009-11-06 09:11 |只看该作者

好像是没有哦

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

兰花仙子

版主

论坛徽章:: 0

3楼 [报告]

发表于 2009-11-06 10:04 |只看该作者

回复 #1 solasoca 的帖子

可以的呀。。。用闭包~~~

use strict;
use File::Find;

# make a closure that invokes &$arg2 on any filename that
# ends in $arg1
sub makeExtClosure
{
my ($ext, $action) = @_;
return sub {
/$ext$/ && &$action;
};
}

find(makeExtClosure("pod", sub{print "$_\n"}), ".");