为了方便同步多个主机的目录到备份服务器，写了如下脚本：
#!/usr/bin/perl
use strict;
use File::Spec;
use File::Basename;
use File::Path;
#设定存储路径
my $storedir="/backup/";
while(<DATA>){
chomp;
my ($host,$s_path)=split /\t/;
my $project_name=fileparse($s_path);
my $d_path=File::Spec->catfile($storedir,$host,$project_name);
$s_path=$s_path."/";
$d_path=$d_path."/";
mkpath $d_path,1,0755 unless -d $d_path;
my $cmdline="rsync -av --delete --rsh=\"ssh\" root\@$host\:".$s_path." ".$d_path;
print "备份主机:$host 备份目录:$s_path\n";
system ($cmdline);
}
__DATA__
host1 /home/www
host2 /home/bbs
脚本的功能非常简单，即生成简单的命令行，由system命令调用一个shell来执行这个命令来完成备份。
脚本中的__DATA__下定义了需要备份的主机和目录（以TAB分隔开），生成的备份保存在$storedir="/backup/"定义的目录中，该目录下建立以主机名命令的目录，每个主机名目录中为每个一项目名。
脚本需要完善的地方有：
1、没有生成日志；
2、没有保存多份不同时间的备份。
另外要记得备份一下自己的主目录，只要运行一条命令就行，不然有一天电脑出问题，后悔莫及，<LINUX SERVER HACKS>里有一句说的非常好：唯一比灾难性的磁盘故障、失控的远程主机和险恶的安全性事件更糟糕的事，是发现这些事情本来可以避免时的那种痛彻心扉的感觉。
我的方法是写一个脚本，命名为：rootbackup.sh放入/root/bin下，下班时只要运行：
[root@supersun.biz ~]#rootbackup.sh
就可将/root目录同步到我的移动硬盘中。脚本内容：
#!/bin/sh
echo "开始对/root目录进行备份........"
echo "挂载移动硬盘:"
echo "mount /dev/sda4 /mnt"
mount /dev/sda4 /mnt
echo "进行同步"
rsync -av --delete /root /mnt/sun
echo "同步结束"