2005-06-11 ■ メモ Perl バックアップを元に戻す。 perl -e 'for(@ARGV){ ($nn)=/^(.*).bak$/; rename $_,$nn or die "cannot rename $_,$nn; $!"; }' *.bak