おい！あふを語ろうぜ！Ver.18

おい！あふを語ろうぜ ..

683:名無しさん＠お腹いっぱい。
05/11/09 21:09:25 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"

こう呼び出すと、時刻を付けたファイルを同じ場所にコピー

次ページ

続きを表示

1を表示