File::Find, find()-viviecho-ChinaUnix博客

Linuxhttps.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

viviecho

博客访问： 485123
博文数量： 279
博客积分： 4467
博客等级：上校
技术积分： 2830
用户组：普通用户
注册时间： 2007-04-03 14:43

文章分类

全部博文（279）

AWK（1）
SED（1）
ora（14）
testing（4）
work（10）
MySql（26）
perl script （（39）
Javascript（2）
windows（2）
C/C++（2）
install software（10）
English（0）
System configure（29）
linux command（28）
Shell script（11）
virtual server（3）
perl（43）
PHP（8）
未分配的博文（46）

文章存档

2013年（1）

2012年（39）

2011年（35）

2009年（29）

2008年（131）

2007年（44）

我的朋友

最近访客

推荐博文

File::Find, find()

分类：

2008-01-22 17:24:07

File::Find, find()


#!/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文件树结构中查找对象。

阅读(361) | 评论(0) | 转发(0) |

上一篇：DBI, connect(), prepare(), execute(), fetchrow_arr

下一篇：Date::Manip, Date_Cmp()#用于时间日期的比较

给主人留下些什么吧！~~

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6