- 81 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 21:13:57 ]
- 俺にきれいなコードを書くのは無理とわかった。
#!/usr/bin/perl
use strict;
BEGIN { require warnings && import warnings }
local $/ or grep ++$un'ko{$_},map m/\b\w+\b/g,uc<STDIN>;
print lc and printf join $un'ko{$_},unpack 'a'x2," \n" for reverse sort { $un'ko{$a} <=> $un'ko{$b} } keys %un'ko;
__END__
