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

                 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