ソートされた配列に上から順に順位をつけていくには？

CGI-BBS > ＣＧＩ > Perl > ソートされた配列に上から順に順位をつけていくには？

質問者 GATE 投稿日 6/18(月) 00:06:02 [削除] (返信・回答が付いた後にこの質問の削除はできません)

はじめまして、GATEといいます。まだまだPerlについて勉強不足でいろいろ苦戦しております。題名に書いた処理なんですが、下に書いたソースで間違えているところを教えていただきたいです。ファイルによりデータを降順ソートで処理した@sortdateの1番目の要素を配列の上から順に順位をつけていきたいです。6番目の要素には降順ソートの元になった数値が入っています。

$jyuni=0;
$z=0;
foreach $jyun_date (@sortdate){
        ($jyun0,$jyun1,$jyun2,$jyun3,$jyun4,$jyun5,$jyun6)=split(/,/,$jyuni_date);
        if ($z < $jyun5) {
                $jyuni++;
                $jyun0 = $jyuni;
                $z = $jyun5;
                $jyuni_kakutei1="$jyun0,$jyun1,$jyun2,$jyun3,$jyun4,$jyun5,$jyun6";
                push @sort_date,$jyuni_kakutei1;
        }elsif ($z == $jyun5){
                $jyun0 = $jyuni;
                $jyuni_kakutei2="$jyun0,$jyun1,$jyun2,$jyun3,$jyun4,$jyun5,$jyun6";
                push @sort_date,$jyuni_kakutei2;
        }
}
print TEXT @sort_date;

返信(回答)する

Ｗｅｂ裏技