Perl遍历目录和使用Linux命令分析日志的代码实例分享
实例代码:
#! /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
- Linux日志查看(8)— awk 命令(使用实例)
- Java使用File类遍历目录及文件实例代码
- [代码实例][Linux系统编程]遍历目录并且输出目录下文件MD5值
- linux系统find命令之xargs使用实例分享
- Linux中rz命令使用实例分享(批量上传文件、简单易用)
- 实例讲解Linux中cd命令切换目录的使用技巧
- [代码实例][Linux系统编程]遍历目录
- Linux chgrp命令详细介绍和使用实例(改变文件或目录的所属用户组)
- Linux chmod命令详解和使用实例(改变文件或目录的访问权限)
- Linux系统下ifconfig命令使用及结果分析
- Linux基础之—实例解说目录/文件命令
- Linux下日志分析的几个常用命令
- Tcpdump命令的使用与示例——linux下的网络分析
- Linux改变文件或目录的访问权限命令使用说明(chmod命令)
- CMD下一个命令遍历目录并删除相同文件的代码
- PHP随机数生成代码与使用实例分析
- linux下使用gcc命令编译代码
- Tcpdump命令的使用与示例――linux下的网络分析
- Tcpdump命令的使用与示例——linux下的网络分析
- linux 目录结构+常用命令+压缩命令+vim使用+及一些基础知识(非常好)