用于在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;
用于在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;