いま acnhmaag わーるど で けんっりぶじ かすんう が ちーょー はていっやる らのしいで ぼくも ぱーるで かいて みよたん

id:amachangさんがかいてた！のでまねた！
http://d.hatena.ne.jp/amachang/20090518/1242656425

むだに わんないらー に しみよてたん

$ perl -e 'utf8::decode($ARGV[0]); my @terms = split(/[\s　]/, $ARGV[0]); foreach (@terms) { my @words = split(//, $_); my($first, $last, $size) = (shift(@words), pop(@words), scalar(@words)); print $first, (map { splice(@words, int(rand($size--)), 1) } (0..$size-1)), $last, " "; } print $/;' "いま amachang わーるど で けんぶりっじ かんすう が ちょーー はやっている らしいので ぼくも ぱーるで かいて みたよん"

けかっは こザのマ だ！

いま acnhmaag わーるど で けんっりぶじ かすんう が ちーょー はていっやる らのしいで ぼくも ぱーるで かいて みよたん

ふうつの ソーだスよ

#!/usr/bin/perl

utf8::decode($ARGV[0]);
my @terms = split(/[\s　]/, $ARGV[0]);
foreach (@terms) {
  my @words = split(//, $_);
  my($first, $last, $size) = (shift(@words), pop(@words), scalar(@words));
  print $first, (map { splice(@words, int(rand($size--)), 1) } (0..$size-1)), $last, " ";
}
print $/;

↓すこし みかじく して みんたよ！

#!/usr/bin/perl

utf8::decode($ARGV[0]);
print map {
  my @ts = split(//);
  my($fs, $ls, $cnt) = (shift(@ts), pop(@ts), scalar(@ts));
  $fs, (map { splice(@ts, int(rand($cnt--))) } (0..$cnt-1)), $ls, " ";
} split(/[\s　]/, $ARGV[0]), $/;

※ほとんう は この ソース は wide ctaacrher が でてきて よくしろない んけだど きしにない

next:ケブンリッジ関数をmixiの日記でもかけるようにしてみた