[ 最初の画面に戻る ]


PerlInquire Ver.3.01の集計結果について
KENTA楼2011/06/21(火) 21:08No.2861
このメッセージに返信する

PerlInquire Ver.3.01をご公開いただき有難うございます。
現在設置に向けて取り組んでいます。

さて、アンケート集計結果の表示について、1つ質問があります。
現在は$option[0]で設定している項目全てが「アンケート集計結果 」として表示されますが、
これを投票数の多い上位3つだけ表示したいと考えています。

255行目の一文かなと、
  foreach (sort {$total{$b} <=> $total{$a}} keys(%total)) {

いろいろ調べましたが、どのようにループする回数を「3」に設定するかよく分からず質問を投稿します。
大変恐縮ですがご回答いただければ幸いです。

Re: PerlInquire Ver.3.01の集計結果について
飾り職人ひで2011/06/22(水) 09:42No.2862
このメッセージに返信する ホームページ

ループを途中で抜けるには、lastを使います。
253行目を以下のように変更して下さい。

【修正前】
            foreach (sort {$total{$b} <=> $total{$a}} keys(%total)) {

【修正後】
            $count = 0;
            foreach (sort {$total{$b} <=> $total{$a}} keys(%total)) {
                if (++$count > 3) { last; }

解決しました
KENTA楼2011/06/22(水) 14:56No.2863
このメッセージに返信する

迅速かつ的確なご回答をいただきありがとうございました。
lastを使用することにより、問題が解決しました。
重ねて厚く御礼を申し上げます。



PerlTreeBBS Ver.2.31