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);
}

いつの間にか m4a に

itunes で取り込んでる音楽データを車についてるカーナビ用に usb メモリに転送して使っている。久しぶりに cd を購入したので、早速取り込んでお出かけの際に聞こうとおもったら一覧にでてこない。カーナビを色々いじってみると、入っているはずのアルバムがいくつか 見つからない。比較的新しくかったCD達だ。(itunes や amozonなどで曲だけかうのはどうも馴染めないｗｗ）　しかたなく、カーナビの説明書ひっくりかえしてみると、５XX曲以上だったりすると認識しない 旨の注意書きある。え〜、３２Gのusb メモリの１割位しかつかってないのに残念な仕様だ。などと思いながら、カーナビで聞けない曲にマウスをあわせてみると、m4a と表示される。？？？、確かすべてmp3 で取り込む設定をしたはずなのに、itunes 様がいつの間にかデフォルトにお戻りになられていたのですね。。。という訳で mp3 に変換してめでたくご認識に成功したわけだが、早晩、カーナビの曲数の上限にあたるのだろうなと思う。仕様もよくよまずに、進められるままにカーナビつけ た私がいけないのは重々承知だが、呑気にいくなら徹底してアナログでいることなのかもしれない。あちこちの仕様変更やリミットの地雷を踏まぬように注意深 く渡り歩ける性格ではないのだが、思いつきで弄りたがり性なのがいけないんだろうなぁ。