忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 3873 | 回复: 3

求解决 删除30天之间的日志,每个日志里都要日期 [复制链接]

论坛徽章:
0
发表于 2018-06-15 07:16 |显示全部楼层
假设一组日志:server.log-20180101.log,server.log-20180102.log,server.log-20180103.log,.....server.log-20180615.log,删除30天之前的日志,这个怎么写了,小弟先行谢过,初学者。

论坛徽章:
0
发表于 2018-06-15 07:17 |显示全部楼层
网上我也找了好多案例 都是以日志生成时间来删除的,有没有以日志名字里日期来删除的?

论坛徽章:
0
发表于 2018-06-15 10:15 |显示全部楼层
读文件夹你可以在网上查查

可以使用DateTime

删除文件可以用unlink

  1. use DateTime;

  2. my $file = "server.log-20180516.log";
  3. if ( $file =~ /server\.log-(\d{4})(\d{2})(\d{2})\.log/ ) {
  4.     if ( old_than_30($1, $2, $3) ) {
  5.         # delete file
  6.         unlink $file or warn "Could not unlink $file: $!";
  7.     }
  8. }

  9. sub old_than_30 {
  10.     my ($year, $month, $day) = @_;
  11.     my $dt = DateTime->new(
  12.         year       => $year,
  13.         month      => $month,
  14.         day        => $day,
  15.     );
  16.     my $now = DateTime->now;
  17.     my $delta_days = $now->delta_days($dt);
  18.     return 1 if $delta_days->delta_days() > 30;
  19.     return 0;
  20. }
复制代码

论坛徽章:
0
发表于 2018-06-19 22:49 |显示全部楼层
回复 3# asthman
大哥 谢谢啊 我觉的你写的这个太长了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP