Perl遍历目录和使用Linux命令分析日志的代码实例分享
Perl遍历目录和使用Linux命令分析日志的代码实例分享
发布时间:2016-12-28 来源:查字典编辑
摘要:实例代码:复制代码代码如下:#!/usr/bin/perl-w$path='/root/Documents';#当前工作目录$dir="$p...

实例代码:

复制代码 代码如下:

#! /usr/bin/perl -w

$path = '/root/Documents';# 当前工作目录

$dir = "$path/images";# 要遍历的目录

$log_file = "$path/access_201209.log";# nginx日志0903~0907, filesize: 5.4G

$result_file = 'result.f';# 放置结果的文件

if(!open $output, ">>$result_file") {# 以追加的形式打开文件

die " Open file failed: $!";

}

&find_dir($dir);

sub find_dir() {

my $base_dir = $_[0]; # $_[0]表示子例程(函数)的第一个参数

if( !opendir(DIR,"$base_dir") ) {

warn "open dir failed: $! n";

}

my @father_dir = readdir(DIR);# 资源转储

closedir(DIR);

$base_dir =~ s//$//;# 删除目录最后面的 /

foreach $sub_dir (@father_dir) {

if($sub_dir =~ /^./) {# 过滤掉 . 和 .. 以及 隐藏文件

next;

}

if(-d "$base_dir/$sub_dir") {# 如果是目录则回调

&find_dir("$base_dir/$sub_dir");# 引用递归函数,避免在内存中开辟多个副本

}elsif (-f "$base_dir/$sub_dir") {# 如果是文件则....

# 文件前面保留一个空格,这样才能保证不会搜索到 theme_skin/blue/images 这样的目录

my $this_file = " $base_dir/$sub_dir";

$this_file =~ s/$path//; # 删除掉字符串 /root/Documents

# 使用Linux命令,在 [$log_file文件] 中查找 [$this_file字符串] 并统计字符串出现的次数

my $result = `grep -c "$this_file" $log_file`;# $this_file要用双引号括起来,防止图片名称中有空格造成程序错误

chomp $result ;# 删除Linux执行命令后,返回值所带有的换行符

print $output "$this_file : $result n";# 将处理结果写入$output指定的文件

# 已经记录过的文件删除掉,这样每次终止脚本的时候,都能继续之前的内容进行查找

unlink "$base_dir/$sub_dir";

}

}

}

print "n Finished n";

# 现在打开 result.f 文件,把 /images/ 替换成 images/ 这样才能在当前工作目录中删除文件

# Linux命令查找5天内被访问0次的记录,并删除

# 数字0 左右两边要有空格,防止找到文件名中含有0的记录

# 方法 1 :

# gawk -F ':' '$2 ~ / 0 / {print $1}' result.f | xargs rm -rf

# 方法 2 : (完全等同 方法1)

# grep ' 0 ' result.f | gawk -F ':' '{print $1}' | xargs rm -rf

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新perl学习
热门perl学习
脚本专栏子分类