#!/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文件树结构中查找对象。
by: 发表于:2017-09-12 14:53:13 顶(0) | 踩(0) 回复
??
by: 发表于:2017-09-12 14:53:13 顶(0) | 踩(0) 回复
??
回复评论