カテゴリ\表\示

#!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); use DBI; use CGI; $q = new CGI; require 'addin.pl'; $cate=$q->param('cate'); if($catene ""){&cate} else{&fst} sub fst{ print < カテゴリ\表\示 EP open(CATE,"$catefile"); while(){ chomp; $line[$n]=$_; $n++; } close(CATE); foreach(@line){ @tmp=split(/\Q,\E/); if($tmp[2]==1){$fst[$s]=$_;$s++} else{$other1[$t]=$_;$t++} } $fstnum=@fst; $cols=int($fstnum/4+1); foreach $st(@fst){ if(($fstn%$cols==0)&&($fstn>0)){print ""} if($fstn%$cols==0){print "

"} @tmp=split(/\Q,\E/,"$st"); print <$tmp[1]
EP foreach $er(@other1){ @tmp2=split(/\Q,\E/,"$er"); if($tmp2[3] eq $tmp[0]){ if($tmp2[2]==4){ print <$tmp2[1]
EP } else{ print <$tmp2[1]
EP } } } $fstn++; } print <

EP } sub cate{ print < カテゴリ\表\示

EP open(CATE,"$catefile"); while(){ chomp; $line[$n]=$_; $n++; } close(CATE); foreach(@line){ @tmp=split(/\Q,\E/); if($tmp[3] eq $cate){$grp[$f]=$_;$f++} elsif($tmp[0] eq $cate){$tar=$_} } @tmp1=split(/\Q,\E/,"$tar"); print <$tmp1[1]
EP foreach(@grp){ @tmp2=split(/\Q,\E/); if($tmp2[2]==4){ print <$tmp2[1]
EP } else{ print <$tmp2[1]
EP } } print <

EP }