FIND模块，找到的文件为啥返回不了啊

tanxin8651

在/tmp 下有文件 /tmp/beijing/key.name, /tmp/beijing01/key.name01

#!/usr/bin/perl use File::find; my $path="/tmp"; find (\&wanted,$path); print "@file"; sub wanted{ if($File::Find::name=~/key/ and $File::Find::name=~/beijing/) push @file,$File::Find::name; }

我是想把通过FIND模块找到的路径赋值给一个数组,然后返回,再打印出来.换成 "print $File::Find::name\n"就可以打印

这样为啥返回不了文件全路径呢。
返回值:/tmp/beijing/key.name /tmp/beijing01/key.name01

[ 本帖最后由 tanxin8651 于 2009-3-29 23:04 编辑 ]

小公猫

那你返回的是什么？

wxlfh

把数组@files定义在调用find函数之前。