バタバタしている間にトリックオアトリートの日が近づいて来てしまいました…汗

いろいろ考えてみたのですが、未だに上手くいかず…
現状だと
> print qq|<TABLE border="0" cellspacing="0" cellpadding="0"><TBODY><TR><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_001.gif" width="9" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_002.gif" width="130" height="9"><IMG src="img/e-icon_004.gif" width="16" height="16"><IMG src="img/F2_002.gif" width="130" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_003.gif" width="9" height="9"></FONT></TD></TR><TR><TD background="img/F2_008.gif" align="middle"><FONT size="1"><IMG src="img/kuroko.gif" width="3" height="3"></FONT></TD><TD bgcolor="#cac4b0" width="276"><table>|;
までしか表示されていない画面が出ている感じです…

> 階層が深くなった時は親記事に返信していただくと助かります。
申し訳ないです；了解しました！

> Familiar.plの112行目で呼び出しているget_card_categoryが未定義という意味です。
> おそらくrequireがこの前に行われていない（後ろのほうにある）のだと思います。

前に行っているはずなのですが、もしかして位置が悪いでしょうか？

> > my $category = int($Fm{'category'});
> カテゴリは数字なのでしょうか？
> 違うのでしたら数値化すると意図しない値になります。

理解せずに追記してました…ので削除しました！

現状、以下のような感じになっています。

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

print qq|<center><b>＋$nmのコレクション＋</b><br>\n|;
print '<b>〜', $Fm{'category'};
print qq|シリーズ〜</b>|;

print qq|<TABLE border="0" cellspacing="0" cellpadding="0"><TBODY><TR><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_001.gif" width="9" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_002.gif" width="130" height="9"><IMG src="img/e-icon_004.gif" width="16" height="16"><IMG src="img/F2_002.gif" width="130" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_003.gif" width="9" height="9"></FONT></TD></TR><TR><TD background="img/F2_008.gif" align="middle"><FONT size="1"><IMG src="img/kuroko.gif" width="3" height="3"></FONT></TD><TD bgcolor="#cac4b0" width="276"><table>|;

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

#カテゴリ
　　　　@fitems = grep {
　　　　($item,$sts) = split(/△/, $_);# カード名とステータスに分割
　　　　&get_card_category($item) eq $Fm{'category'};
$Fm{'category'};
　　　　} @fitems;
#カテゴリ

my $start = int($Fm{'start'});

if(scalar(@fitems) > 5){
&form('start');
&input('hidden', 'mode', collection);
&input('hidden', 'category', $category);
&input('hidden', 'id', $id);
&input('hidden', 'ps', $ps);
print qq|<select name=start>\n|;
print qq|<option SELECTED value="0">１ページ\n|;
print qq|<option value="5">２ページ\n| if(scalar(@fitems) > 5);
print qq|<option value="10">３ページ\n| if(scalar(@fitems) > 10);
print qq|</select><input type="submit" value="みる">\n|;
&form('end');
}

#ループ処理
if(@fitems){
　　　　$start = $start < 0 ? 0 : $start > $#fitems ? $#fitems : $start; # 開始位置を調整
　　　　$end = $start + 4; # 終了位置、1ページ最大5件の場合
　　　　$end = $end > $#fitems ? $#fitems : $end; # 終了位置を調整

　　　　foreach $items (@fitems[$start .. $end]){ # $startから$endの範囲をループさせる

#ループ処理

($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=#FF8C00>カテゴリ３</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|;
#カード画像表示
}
}


> > &input('hidden', 'category', $category);
> カテゴリを指定するのはこの画面を呼び出す前だけなのでしょうか？

そうなります！


たくさん教えて頂いているのに未だに完成できず申し訳ないです…

変なとこがあったら教えて頂きたいです…！！

▼関連発言
│
└◆1894:【続】cardimg.pl内のサブルーチンについて [YOUME] 10/04 21:12
　└◆1895:Re:【続】cardimg.pl内のサブルーチンについて [moon] 10/05 07:04
　　└◆1896:Re[2]:【続】cardimg.pl内のサブルーチンについて.. [YOUME] 10/29 09:24
　　　└◆1897:Re[3]:【続】cardimg.pl内のサブルーチンについ.. [moon] 10/29 19:20
　　　　└◆1898:Re[4]:【続】cardimg.pl内のサブルーチンにつ.. [YOUME] 10/29 21:30
　　　　　└◆1899:Re[5]:【続】cardimg.pl内のサブルーチンに.. [moon] 10/30 06:29
　　　　　　└◆1900:Re[6]:【続】cardimg.pl内のサブルーチン.. [YOUME] 10/30 11:00
　　　　　　　└◆1901:Re[7]:【続】cardimg.pl内のサブルーチ.. [moon] 10/30 20:39
　　　　　　　　└◆1902:Re[8]:【続】cardimg.pl内のサブルー.. [YOUME] 10/30 21:31<-last