0

我每天都在我的数据库上进行备份，文件名如下所示

AWDRT.0.db2inst1.NODE0000.CATN0000.20130312095740.001
AWDRT.0.db2inst1.NODE0000.CATN0000.20130313100330.001
GSRTC.0.db2inst1.NODE0000.CATN0000.20130313102253.001

如果在附加时间戳之后看到，我如何检查今天是否进行了备份，CATN0000即YYYYMMDD。所以我可以检查备份文件是否存在

在shell中我曾经这样做过

/home/ftpusr/backup/AWDRT.0.db2inst1.NODE0000.CATN0000.`date +%Y%m%d`*

我如何在 perl 中执行此操作以及如何清除我在 shell 中执行的旧备份，如下所示

/home/ftpusr/backup/AWDRT.0.db2inst1.NODE0000.CATN0000.`date +%Y%m%d -d "$i days ago"`

帮助表示赞赏

4

2 回答 2

1

首先将 dir 更改为备份所在的位置（要添加到两个脚本中）

chdir ('/home/backups/vital');

列出今天的备份（当地时间）

$now = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
$ymd = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);

@backup = glob("*.CATN0000.$ymd*");

if ($#backup >= 0) {
  print("Backup at $ymd: @backup\n");
}
else {
  print("No backup at $ymd\n");
}

然后查找并删除n天前的文件（如果多个文件匹配，则仅删除列表中的第一个）

$daysago = 3; # 3 days ago
$now = time();

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now - $daysago*3600*24);
$old = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);

@oldbackup = glob("*.CATN0000.$old*");

if ($#oldbackup >= 0) {
  print("Old Backup at $old: @oldbackup - removing (first one)\n");
  unlink( $oldbackup[0] );
}
else {
  print("No old backup at $old\n");
}
于 2013-03-14T09:04:51.900 回答
0

您也可以在 perl 中使用反引号。

$ perl -e"print qq(`date "+%Y%m%d"`)"

可以使用 unlink() 从 perl 中删除文件。

检查文件是否存在是通过例如

if ( -e $filename ) { die("File $filename exists") };

更新：

您还可以使用 readdir 并在文件名上使用正则表达式来完成它。

use Time::localtime

opendir(DIR, "/cygdrive/d/test/") || die("Error");
$backup_exists = 0;
$prefix = "CATN0000.";
while ($f = readdir(DIR)) {
  $today_timestamp = sprintf('%4d%02d%02d', localtime->year()+1900, localtime->mon()+1, localtime->mday());
  if ( $f =~ /$prefix$today_timestamp/ ) {
    $backup_exists = 1;
  }
}
closedir(DIR);

if ( $backup_exists ) {
  print "Backup exists\n";
} else {
  print "Backup does not exist\n";
}

更新 2：但上面的 glob() 版本更有效。用那个。

于 2013-03-14T08:44:44.483 回答