データのバックアップ
たいしたソースじゃないけど、バックアップデータの待避を行う処理。
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での呪文がファイル先頭に付いているのはご愛敬。