rsyncを（ほぼ）毎日やるのでスクリプトを書いた

#!/usr/bin/perl
use feature qw(say);
use warnings;
use strict;

### INITIAL SETTING ##########
our $BACKUP_DIR="/mnt";
our $EXC_FILE="/mnt/exc.txt";
##############################

if ($BACKUP_DIR!~/\/$/){
$BACKUP_DIR.="/";
}

chdir $BACKUP_DIR or die $!;
my ($today,$target);
$today=`date +%Y%m%d`;
chomp $today;
say "*** START BACKUP!!! ***";
system "mkdir $today 2> /dev/null";


{
#前回バックアップディレクトリの探索
opendir DIR,"./" or die $!;
my @list;
@list = readdir DIR;
close DIR;
@list = grep {-d $_ and !/\./} @list;
$target="";
for (reverse sort @list){
next if (!/\d{8}/);
$target=$_;
last if ($target ne $today);
}
}


my $rsync_cmd = << "EOF";
rsync -av --delete-excluded \\
--exclude-from=$EXC_FILE \\
--link-dest=/mnt/$target/ \\
/ $BACKUP_DIR$today/
EOF

print << "MESSAGE";
Today -> $today
Previous -> $target

__ exec command __
$rsync_cmd

Run rsync OK? (y/n)
MESSAGE

my $input=<STDIN>;
chomp $input;

if ($input eq "y"){
say "rsync run!";
exec $rsync_cmd;

}
else {
say "rsync cancel!"
}