何となく必要性を感じてランダムアナグラマを書いたので公開。
> perl anagram.pl tokyotokkyokyokakyoku
とかで動くはず。日本語を使えるようにしようかと思ったけど、どうせプラットフォーム依存になるからやめた。
#!/usr/local/bin/perl
use warnings;
use strict;
my $str = shift;
my @str = split("",$str);
my %hash=map{rand(),$_}@str;
for(sort keys %hash){print $hash{$_}};
print "\n";
