忘れそうなので、メモ。 $hash = { "ほげ" => 10, "ふが" => 5, "ぴき" => 30 }; for my $key (sort { $hash->{$b} <=> $hash->{$a} } keys %$hash) { print $key, ",", $hash->{$key}, "\n"; } http://codepad.org/dRkHNzJM教えてくださった方、ありがとう…

GoogleのURL短縮API叩くモジュールがあったので実装してみたモジュールはGithubからもってきました。 http://github.com/yappo/p5-WWW-Shorten-Google/ #!/usr/bin/perl use strict; use warnings; use utf8; use CGI; use CGI::Carp; use WWW::Shorten::Goo…