支持匹配路径 匹配文件名 多久没有访问的自动清理

#用于各系统清理文件脚本，filepath  reg_filename fileatime 
#author Foyon0806@gmail.com 
#date   2013-8-22 14:51:52
#!/bin/sh

if [ $# -eq 0 ];then
    echo "Usage: sh auto_clear_file.sh clear_filepath clear_regfilename filecreatetime"
    echo "eg: sh auto_clear_file.sh /tmp/log/  user_log -7day"
    exit
fi
filepath=$1
regfilename=$2

if [ "-$3" = "-" ];then
    filectime=`date -d -7day '+ %s'`
else
    filectime=`date -d $3 '+ %s'`
fi 
log=`ls $filepath | grep $regfilename`
echo $log
for file in ${log}
do
    echo $file
    fileatime=`stat -c %X ${filepath}${file}`
    if [ ${fileatime} -lt ${filectime} ]; then
        opt=`rm -f ${filepath}${file}`
        echo $opt
    fi  
done

为Java程序员准备的10分钟Perl教程
1.从基础开始不像java，Perl不需要main方法作为入口点。要运行一个简单的Perl程序如下:#commentstartswith"#"#thenameishello.plprint"HelloPerl!";只需执行：perlhello.pl2.

perl与shell获取昨天、明天或多天前的日期的代码
一、首先说下perl如何获取#!/usr/bin/perl-wusePOSIXqw(strftime);my$day=strftime("%Y%m%d",localtime(time-24*3600));#获取昨天的日期二、在Linux中对mandate-d参数说的比拟笼统,

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='r