reverse
博士の愛した数式に回文の話があったので作ってみた。
#!/usr/bin/perl -w # reverse.pl # 各行を逆にして出力 # use strict; use encoding 'shiftjis'; while(<>) { chomp; print reverse(split(//, $_)), "\n"; } # reverse.pl ends here.
とりあえず二日前の日記をサンプルにするとこんな感じだ。
。かいなはでい良でgnizitidommoc。うろだのるけつを」化「ぜな、にのなじ同とgnizitidommoc、はてしと味意、は」化+ytidommoc「。どれけく聞んぶいず近最。だ葉言な変
「」とかは別処理にしたほうが、よりそれっぽいかもしれない。