File::Find, find()

用于在unix文件树结构中查找对象：

#!/usr/bin/perl -w use strict; use File::Find; my $file = "access.log"; my $path = "/"; find(&process, $path); sub process{ print $File::Find::dir, "$_\n" if(/$file/); } exit 0;