CGIで複数のデータファイルを利用したソートを行いたい

質問

ランキングCGIを作成中なのですが、投票順に並べることは出来たのですが
open (IN,"$selfile") || &error("OPEN ERROR");
while (<IN>) {
($sno,$item,$shop,$url) = split(/<>/);
open (INC,"$base/c$sno.txt") || &error("OPEN ERROR");
($cnt) = split(/<>/,<INC>);
close INC;
$rank{} = $cnt;
}
close IN;
foreach (sort {$rank{$b} <=> $rank{$a}} keys(%rank)) {
$cnt = $rank{$_};
print "$_";
}
これだと$itemだけが$cntを利用して降順で並ぶ形になってしまいます
それに沿って$sno・$shop・$url・$cntも表示されるように並べたいのですがどのようにしたらよいのでしょうか？

テキストデータは下記の通りです
選択肢テキストデータ
$selfile($sno,$item,$shop,$urlの順)
2<>ラーメン<>ラーメン屋<>url2<>
1<>チャーハン<>中華屋<>url1<>
3<>うどん<>日本食屋<>url3<>

カウントテキストデータ
c1.txt→580
c2.txt→230
c3.txt→460
---------------ここまで---------------------

このように出力したいです(|←セル区切りだと思ってください)
1|チャーハン|<a herf="url1">中華屋</a>|580
3|うどん|<a herf="url3">日本食屋</a>|460
2|ラーメン|<a herf="url2">ラーメン屋</a>|230

どの部分をどのように直したら出来るのか教えてくださいませんでしょうか？
よろしくおねがいします

回答No.1

taporu · ベストアンサー

@InFile = <IN>;
@sortdata = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0] $InFile;

じゃ駄目？？

参考URL：

http://www1.parkcity.ne.jp/chaichan/src/perl07.htm

お礼

試行錯誤した結果上手く表示することが出来ました

ありがとうございました！

補足

@sortdata = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0]} $InFile;
の記述の方はInFileをソートしてから@sortdataに受け渡すという意味だと思うのですが

@InFileの部分はどのように組み込めばよいのでしょうか？
無知で申し訳ありません