データのバックアップ

たいしたソースじゃないけど、バックアップデータの待避を行う処理。
Activeperlで書いて、Windowsのタスクで一日一回の処理とする。

#! /usr/bin/perl -w

use File::Copy ;
logwrite("** START **") ;

#' 日付データの取得
my($day,$mon,$year) = (localtime(time))[3..5] ;

$newapplication_filename = sprintf("%d%02d%02dXXXXXX.lzh",$year+1900,$mon+1,$day) ;
$backup_filename = sprintf("%d%02d%02dBACKUP.lzh",$year+1900,$mon+1,$day) ;

$source_backup = 'z:\\' ;
$distination_path = 'd:\\backup\\' ;

if(-e $source_backup . $newapplication_filename){
	copy($source_backup . $newapplication_filename,$distination_path . $newapplication_filename) ;
	if(-e $distination_path . $newapplication_filename){
		logwrite("$newapplication_filename Copy Complete!!") ;
	}else{
		logwrite("$newapplication_filename Copy Miss!!") ;
	}
}else{
	logwrite("$newapplication_filename : source file not found!!") ;
}

if(-e $source_backup . $backup_filename){
	copy($source_backup . $backup_filename,$distination_path . $backup_filename) ;
	if(-e $distination_path . $backup_filename){
		logwrite("$backup_filename Copy Complete!!") ;
	}else{
		logwrite("$backup_filename Copy Miss!!") ;
	}
}else{
	logwrite("$backup_filename : source file not found!!") ;
}

Linuxでの呪文がファイル先頭に付いているのはご愛敬。