求教探索File::Find模块的深度使用，如过滤文件

dqw233

回复 1# pigkingone

1. use 5.010;
   
2. use File::Find;
   
3. 
   
4. sub want{
   
5.         say $File::Find::name;
   
6. }
   
7.                         
   
8. $File::Find::skip_pattern = qr/$File::Find::skip_pattern | web2/x;
   
9. find(\&want, '.');
   

复制代码

pigkingone

skip_pattern方法没有试过。
不过我发现prepross这个option参数设置一个回调函数。这个函数中过滤不需要的。retrun需要处理的目标的数组就可以了。
看上去这个应该是起作用了。分享之。
目录多的情况下，还是有意义的