数据七天自动备份脚本

来源：互联网发布：天猫魔盒怎么安装软件编辑：程序博客网时间：2024/04/30 02:55
#!/usr/bin/perl#Author:laomeng#Date:2016-04-11=pod  功能：   数据七天自动备份脚本  注意事项：    检查服务器时间是正确=cutuse strict;use warnings;use POSIX qw(strftime);my $now_date = strftime("%Y-%m-%d", localtime(time));my $seven_agos = strftime("%Y-%m-%d", localtime(time - (7 * 24 * 60 * 60)));#创建备份目录my $bak_dir="/opt/back_up";mkdir $bak_dir,0755 if(!-e "$bak_dir");mkdir "$bak_dir/$now_date";mkdir $bak_dir,0755;=pod   在此处扩展备份代码   ..............=cut#判断文件创建日期并删除七天之前的文件my $create_date=&get_file_create_date("$bak_dir/$now_date");opendir(DIR,"$bak_dir/");while(my $file = readdir DIR){   next if $file =~ /\.|\.\./;   my $create_date=&get_file_create_date("$bak_dir/$file");   if("$create_date" eq "$seven_agos")   {       print "$bak_dir/$file/\n";       unlink glob "$bak_dir/$file/*";       rmdir "$bak_dir/$file";   }}closedir(DIR);#获取文件创建日期sub get_file_create_date{   my $file = shift;   my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat($file);   return time_transfer($ctime);}#时间可读性sub time_transfer {        my $time_str = shift;        my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime($time_str));        $sec = ($sec < 10)? "0$sec":$sec;        $min = ($min < 10)? "0$min":$min;        $hour = ($hour < 10)? "0$hour":$hour;        $day = ($day < 10)? "0$day":$day;        $mon = ($mon < 9)? "0".($mon+1):($mon+1);        $year += 1900;        return("$year-$mon-$day");}
1 0