日記/2009/08/16/バックアップ用のrsync起動書き捨てPerl

#!/usr/bin/env perl
 
$DRY_RUN = "-n";
if ($ARGV[0] eq "go") {
    $DRY_RUN = "";
}
 
$RSYNC_OPT = "-av --delete";
$SRC_DRIVE = "/c";
$DST_DRIVE = "/f";
 
my @TARGETS=(
"My_Documents/foo",
"My_Documents/My Pictures",
"My_Documents/My Virtual Machines",
...
);
 
foreach $TARGET (@TARGETS) {
    $CMD = "rsync ${RSYNC_OPT} ${DRY_RUN} \"${SRC_DRIVE}/${TARGET}/\" \"${DST_DRIVE}/${TARGET}\"";
    print $CMD."\n";
    system($CMD);
}