删除N天前的日志文件

概述#!/usr/bin/perlmy $Date=`date +%s`;$Date -= 17*86400;($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime($Date);my $year_tmp = $year_off + 1900;my $month_tmp = $mon+1;( $

#!/usr/bin/perlmy $Date=`date +%s`;$Date -= 17*86400;($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime($Date);my $year_tmp = $year_off + 1900;my $month_tmp = $mon+1;( $month_tmp < 10 ) ? ($month_tmp = "0" . $month_tmp) : $month_tmp;my $day_tmp = $mday;( $day_tmp < 10 ) ? ($day_tmp = "0" . $day_tmp) : $day_tmp;my $date_tmp = $year_tmp . "-" . $month_tmp . "-" . $day_tmp;print $date_tmp . "/n";`rm -f *_${date_tmp}.xml`;  

 

localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前 时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：  
(   $sec,$isdat) = localtime;
字段    值
$sec     秒，0 ~ 59
$min     分，0 ~ 59
$hour     时，0 ~ 23
$mday     月份中的日期， 1 ~ 2 8、2 9、3 0或3 1
$mon     年份中的月份， 0 ~ 11（这里请特别要小心）
$year_off    1900年以来的年份。将1900加上这个数字，得出正确的4位数年份
$wday     星期几，0 ~ 6
$yday     一年中的第几天，0 ~ 364或365
$isdst     如果夏令时有效，则为真
不要将19附加给localtime返回的年份。它返回的年份是1900的偏移量。比如，在1999年，年份是99;在2000年中,它是100,将 1999与该值相加，可以在2000年以后正确地产生年份。perl不存在2000年问题，但是，如果简单地将19(或20)附加给该年份，就会导致程序 中产生2000年问题

真正的年月日 就是: $year_off + 1900,$mon+1,$mday

总结

以上是内存溢出为你收集整理的删除N天前的日志文件全部内容，希望文章能够帮你解决删除N天前的日志文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。