实例分享Perl遍历目录和使用Linux命令分析日志的代码

来源:爱站网时间:2019-04-22编辑:网友分享
在Perl中,可以使用sysopen函数打开文件进行操作,这两个函数都需要文件来读取、写入和定位,今天爱站技术频道小编就为你简单介绍,希望你对你有所帮助!

Perl中,可以使用sysopen函数打开文件进行操作,这两个函数都需要文件来读取、写入和定位,今天爱站技术频道小编就为你简单介绍,希望你对你有所帮助!

实例代码:

 

#! /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遍历目录和使用Linux命令分析日志的代码,上面的内容有没有让大家学会呢?

上一篇:详细介绍Perl中的特殊内置变量

下一篇:perl use vars pragma使用技巧

您可能感兴趣的文章

相关阅读

查看更多 >

热门软件源码

最新软件源码下载