perl 怎么使用Find过滤某些目录

zzy7186

perl 可以使用File::Find 模块的find函数遍历目录，但是我想过滤掉某个目录不知道应该怎么做？
希望大虾帮忙 谢了

zzy7186

preprocess
The value should be a code reference. This code reference is used to preprocess the current directory. The name of the currently processed directory is in $File::Find::dir. Your preprocessing function is called after readdir(), but before the loop that calls the wanted() function. It is called with a list of strings (actually file/directory names) and is expected to return a list of strings. The code can be used to sort the file/directory names alphabetically, numerically, or to filter out directory entries based on their name alone. When follow or follow_fast are in effect, preprocess is a no-op.红色部分好像说可以过滤目录。不知道具体怎么做 望高手指教下。。。

zhlong8

关键就是这几个变量啊

1. $File::Find::dir is the current directory name,
   
2. $_ is the current filename within that directory
   
3. $File::Find::name is the complete pathname to the file.

复制代码

zzy7186

回复 3# zhlong8


    怎么让find不进入某个目录，即其他目录照长遍历，而忽略某个子目录。。。？

zhlong8

回复  zhlong8


    怎么让find不进入某个目录，即其他目录照长遍历，而忽略某个子目录。。。？
zzy7186 发表于 2011-02-08 08:58

    用 RE 判断 $File::Find::dir ？

zzy7186

回复 5# zhlong8


    用RE是可以实现但是这个要除去的目录中有多少文件就会调用几次wanted，
    sub wanted{
                  print $File::Find::name unless $File::Find::dir =~ m{/root/test};
               }
    像上面的如果/root/test 中有n个文件print 语句后面的unless 就要执行n+1次。
    不知道有没有方法让unless只执行一次。。。。？

flw

perldoc File::Find | less -p preprocess

"preprocess"
   The value should be a code reference. This code reference is used to
   preprocess the current directory. The name of the currently processed
   directory is in $File::Find::dir. Your preprocessing function is
   called after "readdir()", but before the loop that calls the
   "wanted()" function. It is called with a list of strings (actually
   file/directory names) and is expected to return a list of strings.
   The code can be used to sort the file/directory names alphabetically,
   numerically, or to filter out directory entries based on their name
   alone. When *follow* or *follow_fast* are in effect, "preprocess" is
   a no-op.

zzy7186

回复 7# flw [ /b]


    我试了，但是没有效果 感觉是自己对这段话理解错了，望版主帮忙。。。

flw

回复  flw [ /b]


    我试了，但是没有效果 感觉是自己对这段话理解错了，望版主帮忙。。。
zzy7186 发表于 2011-02-08 22:47

preprocess => sub { $File::Find::dir eq '/root' ? grep { $_ ne 'test' } @_ : @_ },

大概意思就是说，preprocess 接受一个文件/目录清单[1]（刚刚由 readdir 得到），然后需要返回一个待遍历的文件/目录清单。
所以在这里可以控制遍历的顺序（通过 sort），或者排除一些目录或者文件。

[1]：注意这个清单不包括路径，当前路径在 $File::Find::dir 变量中。

zzy7186

回复 9# flw


  多谢版主！
  thank you very much!!