Voice of Stone

hidew 2007.01.07

#1502 ネットイナゴの佃煮 - 秘伝のレシピ

匿名批判者のコメントを甘辛く料理する。(Perl)

sub inago_no_tsukudani {
    my ($txt) = @_;
    $txt =~ s/れ/ね/g;
    $txt =~ s/わ/ね/g;
    $txt =~ s/め/ぬ/g;
    $txt =~ s/ろ/る/g;
    $txt .= ' ・・・いい意味で。';
    return $txt;
}

実例 #1500 コメント欄より

[before]
わざわざ紛れ込んでここ読んじゃった自分の３０分が ..

[after]
ねざねざ紛ね込んでここ読んじゃった自分の３０分が ..

当ブログでは他にも味付けをしているが、それは企業秘密。

http://cheebow.info/chemt/archives/2007/01/_for_mt.html
http://www.ideaxidea.com/archives/2007/01/movabletype.html
ここらのネタにインスパイアされた。

blog 炎上 ネットイナゴ Perl ネタ *