アセッタ

あるファイルを別名で保存するためこんなスクリプトを使っていた。

#!/usr/bin/perl

$before = shift;
$after = shift;

exec("cat $before > $after");

exit;

これを使ってコピー前とコピー後のファイル名を同じで実行すると

copy hoge.pl hoge.pl

警告が出てくるにもかかわらず強制的に0バイトになってしまう！！
あせって復帰方法を考えてたら、起動中のemacsにバッファが残ってたため何とか助かった。
マジデアセタ