Linux自定义命令-定时清理文件

灰太狼 2022-02-28 16:06 378阅读 0赞

# 定时清理文件 #

> 定时清理linux 上的日志文件. 注意文件名正则表达式为perl 的正则表达式, 而不是linux 系统的文件通配符. 将此脚本添加到定时任务列表即可.

## 1. 脚本: cleanlogs ##

#!/usr/bin/perl
    #Desc 清理文件
    #Parm 参数: -p, 可选, 递归子文件夹
    # 参数1: 保留天数, 创建日期距今超过此天数的删除
    # 参数2: 根目录, 文件夹所在目录
    # 参数3: 文件名表达式, perl 正则表达式, 用""包裹
    #Name cleanlogs
    #Auth zonggf
    
    use POSIX;
    use Time::HiRes qw(gettimeofday tv_interval);
    
    ############################# 工具方法 ################################
    #Desc 计算时间差,单位秒s
    sub cost_time{ 
        my($start, $end) = @_; 
        my $cost = tv_interval($start, $end);
        return &sub_beforelast($cost, '.');
    }
    
    #Desc 输出日志,日志格式:[2017-08-14 22:56:00] xxxxxx
    sub std_log { 
        my $time = strftime("%Y-%m-%d %H:%M:%S", localtime(time));
        print "[$time] @_\n";
    }
    
    ############################# 业务方法 ################################
    #Desc 1.校验参数
    sub check_param{ 
        my $parmLength = @ARGV;
        if($parmLength <3 || $parmLength >4){ 
            &std_log('"[ERROR] command should be like: ./cleanfiles [-p] 30 /var/logs "*.log.gz"');
            exit;
        }else{ 
            #判断是否递归子文件夹
            if($ARGV[0] eq '-p'){ 
               $is_recursion = 1;
               shift @ARGV;
            }
        
            #判断日期格式
            unless ($ARGV[0] =~ /^\d*$/){ 
               &std_log('"[ERROR] command should be like: ./cleanfiles [-p] 30 /var/logs "*.log.gz"');
               exit 0;
            }
            
        }
    }
    
    #Desc 2.设置全局变量
    sub set_global{ 
       #是否递归文件夹
       $is_recursion = $is_recursion;
       
       #保留天数
       $keep_days = @ARGV[0];
       
       #递归目录
       $loc_dir = @ARGV[1];
       
       #文件名匹配
       $filename_regx = @ARGV[2];
       
    }
    
    #递归目录
    sub parse_dirs{ 
        my $dir = shift @_;
        my @files = <$dir/*>;
        foreach my $file (@files){ 
            if( -d $file ){ 
                &parse_dirs($file);
            }else{ 
                &check_file($file);
            }
        }
    }
    
    #解析单目录
    sub parse_dir{ 
        my $dir = shift @_;
        my @files = <$dir/*>;
        foreach my $file (@files){ 
            &check_file($file);
        }
    }
    
    #检验文件
    sub check_file{ 
        my $filepath = shift @_;
        if( $filepath =~ /$filename_regx/ ) { 
           my $days = -M $filepath;
           if( $days > $keep_days){ 
               printf "delete: %s, %.2f \n", $filepath, $days;
               system "rm -f $filepath";
           } 
        }
    }
    
    ############################# main ################################
    #校验参数格式
    &check_param;
    
    #解析参数
    &set_global;
    
    #校验文件
    if($is_recursion == 1 ){ 
        &parse_dirs($loc_dir);
    }else{ 
        &parse_dir($loc_dir);
    }

## 2. 测试运行 ##

[root@gds common]# ./cleanlogs -p 15 /opt/logs/ ".*\.log\.zip"