perl の sort の比較関数で strcmp したい。

よくC言語では、quck sort を使うのだが、perl の場合、なんとなくデフォルトの sort コマンドで事足りていた。ここは、改めて真摯に。。。といいつつ何時もの如くC言語でいう所の strcmp に相当する機能ではまった。www だめっすね。

#! /usr/bin/perl

%LIST=(
"abc",1,
"abb",2,
);

foreach $key (sort comp(keys %LIST)) {
    printf("[%s][%d]n",$key,$LIST{$key});
}

sub comp {
   return($a cmp $b);
}