使用 File::find 递归遍历目录

beyes

通常操作目录操作会用

opendir, readdir, closedir

这 3 个函数，但 readdir 不能进行递归目录的操作。但是在 File::find 模块里却能找到这样的函数，实际有 2 个，一个是 find ，一个是 finddepth 。这里只简单的说一下 find 函数。find 函数的用法如下：

find(\&wanted, @directories_to_search);

其中第一个参数 wanted 是个子函数，也就是回调函数，由你自己来定义，这个参数必须有，即使它的内容为空。第二个参数是个目录列表，一般情况下，我们可能只是处理一个目录，所以它也可以是个普通的表示目录名的字串标量。

测试程序：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl

use File::Find;

$path = "/root/myperl/chap13/temp_top";

find(\&wanted, $path);

sub wanted {
        print "we will change \"$File::Find::name\" permission  to 777\n";
        chmod 0777, $File::Find::name;
}

在上面程序中，我们要递归处理 /root/myperl/chap13/temp_top 下的所有文件，将里面的文件，及其子目录下的文件包括子目录本身的权限都设置为 0777 。需要注意的是，&wanted 子程序的前面需要加一反斜杠转义。

此外，在递归的过程中，一般会涉及到 3 个变量：
$File::Find::dir ：表示当前所处理到的子目录；
$_ ：只取文件名，如 basename 之后得到的文件名。
$File::Find::name ：当前的文件的全路径名。