MAX-A、MAX-B、MAX-Cのadmin.cgiの 4534行あたりに $skin_d=""; とあるのでその下に $lcate_d=""; と追加 4536行あたりの ($page_id,$p_name,$skin,$g_num)=split(/,/,$v); を ($page_id,$p_name,$skin,$g_num,$lcate)=split(/,/,$v); と変更 ($g_numのあとに,$lcateと加える) 4540行あたりの $skin_d=$skin; の下に $lcate_d=$lcate; と追加 4547行の $ln="$l,$p_name_d,$skin_d,$num,\n"; を $ln="$l,$p_name_d,$skin_d,$num,$lcate_d,\n"; と変更 ($numのあとに,$lcate_dと加える) 変更後はこんな感じになります。 foreach $l(@{$tmpref}){ $p_name_d=""; $skin_d=""; $lcate_d=""; foreach $v(@cate){ ($page_id,$p_name,$skin,$g_num,$lcate)=split(/,/,$v); if($l eq $page_id){ $p_name_d=$p_name; $skin_d=$skin; $lcate_d=$lcate; last; } } $n=${$arraynameref}[$i]; $num=@{${$aryref}{$n}}; $ln="$l,$p_name_d,$skin_d,$num,$lcate_d,\n"; push @new,$ln; $i++; } 以上です。