用Perl脚本轻松搞定数据备份

为什么选择ref="/tag/2034/" style="color:#B2A89E;font-weight:bold;">Perl来写备份脚本

在日常工作中，很多老系统或服务器环境里，Perl其实一直默默在后台干活。虽然现在Python更流行，但不少运维人员还是习惯用Perl处理文本和自动化任务。特别是需要定时备份日志、配置文件或者数据库导出的时候，写个简单的Perl脚本反而更快更稳。

比如你负责维护一台CentOS服务器，每天要打包几个关键目录，传到另一台机器存档。手动操作容易忘，cron配合Perl脚本就能一劳永逸。

一个实用的备份脚本示例

下面这个脚本会把指定目录打包成tar.gz文件，并加上日期后缀，保存到备份目录：

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
use POSIX qw(strftime);

# 配置参数
my $source_dir = "/var/www/html";
my $backup_dir = "/data/backup";
my $timestamp = strftime("%Y%m%d_%H%M", localtime);
my $backup_file = "$backup_dir/website_$timestamp.tar.gz";

# 创建压缩命令
my $cmd = "tar -zcf $backup_file $source_dir";

if (system($cmd) == 0) {
    print "[INFO] 备份成功: $backup_file\n";
} else {
    print "[ERROR] 备份失败，命令执行出错\n";
}

把这个脚本保存为 backup.pl，给它可执行权限：chmod +x backup.pl，然后加到crontab里每天凌晨跑一次：

0 2 * * * /path/to/backup.pl

进阶：自动清理旧备份

备份多了磁盘容易满，可以在脚本末尾加一段自动删除7天前的旧文件：

# 清理7天前的备份
my $expire_days = 7;
my @files = <$backup_dir/*.tar.gz>;
my $now = time();

for my $file (@files) {
    my $mtime = (stat($file))[9];
    my $age = int(($now - $mtime) / (60*60*24));
    if ($age > $expire_days) {
        unlink $file or warn "无法删除 $file: $!\n";
        print "[INFO] 已删除过期备份: $file\n";
    }
}

这样既能保证有历史数据可用，又不会无限占用空间。

小技巧：配合rsync远程备份

如果想把备份同步到远程服务器，可以直接在脚本里调用rsync：

my $remote_host = "backup@192.168.1.100";
my $remote_path = "/backup/data";
my $sync_cmd = "rsync -az $backup_file $remote_host:$remote_path";

if (system($sync_cmd) == 0) {
    print "[INFO] 同步成功: $backup_file -> $remote_host\n";
} else {
    print "[WARN] 同步失败，请检查网络或SSH密钥\n";
}

只要提前配好SSH免密登录，整个流程就完全自动化了。

有时候公司没有专门的备份系统，但数据又不能丢，这种轻量级的Perl脚本反而是最靠谱的选择。不依赖复杂组件，兼容性好，改起来也方便，适合中小场景快速部署。