Perlでゴニョゴニョ

#!/usr/bin/perl

foreach (@ARGV) {
    rename $_ , "0".$_;
}

チョメチョメでゴニョゴニョしたファイルを[ﾋﾟｰｰｰｰｰ]したいとき、

「あ、(禁則事項です)の（ｱｰｱｰｷｺｴﾅｰｲ）がおかしいじゃねぇか」

って時に使うプログラム

ってのは冗談で、ただ単にperlを使ってみたくなっただけ。

C++のアルゴリズムにもforeachに似たやつがあるらしいけど、使ったことないわ。