perl File::Find模块

File::Find

作用：用于递归查找文件、文件夹

例：

#遍历一个文件夹


use File::Find;

my $path = '/home/test/';
sub process 
{
	if ( -f $File::Find::name ) 
	{
		if ( $File::Find::name =~ /\.old$/ ) 
		{
			print "$File::Find::name\n";
		}
	}
}

find( \&process,$path );