求解决 删除30天之间的日志，每个日志里都要日期

mabulimeng

假设一组日志：server.log-20180101.log,server.log-20180102.log,server.log-20180103.log,.....server.log-20180615.log,删除30天之前的日志，这个怎么写了，小弟先行谢过，初学者。

mabulimeng

网上我也找了好多案例 都是以日志生成时间来删除的，有没有以日志名字里日期来删除的？

asthman

读文件夹你可以在网上查查

可以使用DateTime

删除文件可以用unlink

1. use DateTime;
   
2. 
   
3. my $file = "server.log-20180516.log";
   
4. if ( $file =~ /server\.log-(\d{4})(\d{2})(\d{2})\.log/ ) {
   
5.     if ( old_than_30($1, $2, $3) ) {
   
6.         # delete file
   
7.         unlink $file or warn "Could not unlink $file: $!";
   
8.     }
   
9. }
   
10. 
    
11. sub old_than_30 {
    
12.     my ($year, $month, $day) = @_;
    
13.     my $dt = DateTime->new(
    
14.         year       => $year,
    
15.         month      => $month,
    
16.         day        => $day,
    
17.     );
    
18.     my $now = DateTime->now;
    
19.     my $delta_days = $now->delta_days($dt);
    
20.     return 1 if $delta_days->delta_days() > 30;
    
21.     return 0;
    
22. }

复制代码

mabulimeng

回复 3# asthman
大哥 谢谢啊 我觉的你写的这个太长了

灿烂小猪

find /ufolder -ctime +31 -name "*.log" -exec rm -rf {} \;

灿烂小猪

1. find /ufolder -mtime +30 -name "*.log" -exec rm -rf {} \;

复制代码