おはようございます！
入院したりでバタバタしてしまって中途半端なとこで止まってしまっていましたが、やっと体調が落ち着いてきたので戻ってきましたー！

いろいろ試したり考えたりしたのですが、

player_data内で

#コレクションファイル
if ($mysp =~ /Cf/){
&input('radio','mode','collection','',"コレクションを見る<br>\n");
print qq|　　　カテゴリー：\n|;
print qq|<select name="category">\n|;
print qq|<option value="カテゴリA" selected>カテゴリA\n|;
print qq|<option value="カテゴリB">カテゴリB\n|;
print qq|<option value="カテゴリC">カテゴリC\n|;
print qq|</select><br>\n|;
}
#コレクションファイル

こんな感じにして、ここで選択したカテゴリだけを、表示させたいと思うのですが方法が全く分からず…
そもそもこの指定の仕方で良いのかどうかも不安ではあるのですが…汗

現在のSub Collectionの中は、

# Sub Collection #
sub collection {
@rcdlines = &get_user("$Fm{'id'}");
@collines = &get_coll("$Fm{'id'}");
&header;
&splititem('F');

…中略…

require 'cardimg.pl'; # ループ中で毎回requireするのは無駄なので場所はforeach以前が良い

#カテゴリ
　　　　@fitems = grep {
　　　　($item,$sts) = split(/△/, $_);# カード名とステータスに分割
　　　　$card_name_hash{$item}->{'category'} eq 'カテゴリーA'; #カテゴリーが「カテゴリーA」かどうか
　　　　$card_name_hash{$item}->{'category'} eq 'カテゴリーB';
　　　　$card_name_hash{$item}->{'category'} eq 'カテゴリーC';
　　　　} @fitems;
#カテゴリ

　　　　　　　　foreach $items (@fitems) {
($item,$sts) = split(/△/,$items);
$idd = int(substr($sts,11,3));
$pc = int(substr($sts,0,8));
if ($sts =~ /C0/) {$cde1 = "<font color=red>火</font>";}
if ($sts =~ /C1/) {$cde1 = "<font color=blue>水</font>";}
if ($sts =~ /C2/) {$cde1 = "<font color=yellow>雷</font>";}
if ($sts =~ /C3/) {$cde1 = "<font color=blown>土</font>";}
if ($sts =~ /C4/) {$cde1 = "<font color=green>風</font>";}
if ($sts =~ /C5/) {$cde1 = "<font color=gray>天</font>";}
if ($sts =~ /C6/) {$cde1 = "<font color=#8C008C>冥</font>";}
if ($sts =~ /C7/) {$cde1 = "<font color=powderblue>空</font>";}
#カード画像表示
print qq|<tr><td><img src="|, &get_card_image_path($item), qq|"><br><b>【$cde1】$item</b>\n|;
print qq|<IMG src=story/img/lin.gif border=0></td></tr>\n|;
#カード画像表示
}
…中略…

こんな感じになっているのですが、これだとカテゴリ分けもされずコレクションしたカードの先頭の１枚しか表示されない感じで…

player_data内で選択されたカテゴリだけを表示させる場合、どのような記述が必要なのか、どうしても分からず…汗

いつも頼ってしまって申し訳ないです…
ご教授いただけたら幸いです！

▼関連発言
│
└◆1861:カードコレクションでのページ切り替え [YOUME] 08/17 18:11
　└◆1862:Re:カードコレクションでのページ切り替え [moon] 08/17 20:47
　　└◆1863:Re[2]:カードコレクションでのページ切り替え [YOUME] 08/18 09:41
　　　└◆1864:Re[3]:カードコレクションでのページ切り替え [moon] 08/18 20:08
　　　　└◆1865:Re[4]:カードコレクションでのページ切り替え.. [YOUME] 08/19 08:32
　　　　　└◆1866:Re[5]:カードコレクションでのページ切り替.. [YOUME] 08/26 10:57
　　　　　　└◆1867:Re[6]:カードコレクションでのページ切り.. [YOUME] 08/26 11:57
　　　　　　　└◆1868:Re[7]:カードコレクションでのページ切.. [moon] 08/26 20:32
　　　　　　　　└◆1869:Re[8]:カードコレクションでのページ.. [moon] 08/26 21:13
　　　　　　　　　└◆1870:Re[9]:カードコレクションでのペー.. [YOUME] 09/01 10:30
　　　　　　　　　　└◆1871:Re[10]:カードコレクションでの... [moon] 09/01 13:13
　　　　　　　　　　　└◆1872:Re[11]:カードコレクションで... [YOUME] 09/27 08:15
　　　　　　　　　　　　└◆1873:Re[12]:カードコレクション... [moon] 09/27 09:34
　　　　　　　　　　　　　└◆1874:Re[13]:カードコレクショ... [YOUME] 09/27 19:25
　　　　　　　　　　　　　　└◆1875:Re[14]:カードコレクシ... [moon] 09/27 21:11<-last