用于在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;
本文介绍如何使用Perl编程语言在Unix文件树结构中搜索指定的日志文件,通过定义路径和文件名,利用File::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;

被折叠的 条评论
为什么被折叠?
