たいしたソースじゃないけど、バックアップデータの待避を行う処理。 Activeperlで書いて、Windowsのタスクで一日一回の処理とする。 #! /usr/bin/perl -w use File::Copy ; logwrite("** START **") ; #' 日付データの取得 my($day,$mon,$year) = (localtim…