- 683 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/11/09(水) 21:09:25 ID:1gruq2iV0]
- $target = shift;
$target =~ /(.*)\\([^\\]+)/;
$path = $1;
$filename = $2;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime ( time ) ;
$newfile = sprintf("%s.%02d%02d%02d.%02d%02d%02d", $filename, $year+1900-2000, $mon+1, $mday, $hour, $min, $sec);
system "copy \"$path\\$filename\" \"$path\\$newfile\"";
こんなファイルをどっかに置いて、
"B: バックアップを作成" perl D:\perl\backup.pl "$P\$F"
こう呼び出すと、時刻を付けたファイルを同じ場所にコピー
