请教诸位：File::Find的使用的问题

zfsoft2206

问题的需求是，使用perl编写在指定目录下，使用find查找一级目录下，类型为目录，名字为全数字，修改时间超过60秒的全路径

比如：
bash shell下命令

1. find /public/tasks -maxdepth 1 -type d -name '[0-9][0-9]*' -mmin +1

复制代码

偶转换perl脚本是

1. find({bydepth => 1, wanted => \&wanted},'/public/tasks');
   
2. sub wanted {
   
3.     -d _ &&
   
4.     /^[0-9][0-9].*\z/s &&
   
5.     (time()-stat($_)->mtime > 60) &&
   
6.     print "$File::Find::name\n"
   
7. }
   

复制代码

可发现这两种脚本产生的结果不同，请教各位大牛下面perl有什么问题？

flw

这类问题的标准答案只有一个：
【我这里是好的】

其用意无非是诱使提问者说出自己究竟遇到了什么现象。


但是，我现在连这句话都懒得说了。

zfsoft2206

回复 2# flw


没明白你的意思， 偶发现的问题是直接使用find的命令结果跟真实情况一直，使用perl的话总是少一个文件夹，想的问诸位的是下面那个perl脚本有问题，因为刚用perl有些用法不了解。

chenzq1604

bash的find跟perl中的find函数完全是两码事,可能有部分功能相同。

yybmsrs

回复  flw


没明白你的意思， 偶发现的问题是直接使用find的命令结果跟真实情况一直，使用perl的话总是 ...
zfsoft2206 发表于 2011-02-21 16:21

    诱使提问者说出自己究竟遇到了什么现象。。。

少哪个比较下不就行了，另外，lz的这个函数问题很多啊。。

zfsoft2206

诱使提问者说出自己究竟遇到了什么现象。。。

少哪个比较下不就行了，另外，lz的这个 ...
yybmsrs 发表于 2011-02-21 18:04

是啊 ，这两天刚用这个perl 写个deamon， 里面使用了find， 问题很多，有点遗憾， 不过请楼上的指点下修改下问题