| ■No7790に返信(Microさんの記事) > @RES=(); $ResCount{$namber}=0;
これは %ResCount=(); のほうがいいです。 >if($type){$ti=sprintf("%011d",$tim); if($date){unshift(@RES,"$ti<>$name<>$tim<>");} $ResCount{$type}++;} >に。
ここの unshift(@RES,"$ti<>$name<>$tim<>"); を unshift(@RES,"$ti<>$name<>$tim<>$type<>"); に
> else{$ti=sprintf("%011d",$tim); if($date){unshift(@RES,"$ti<>$name<>$tim<>");} $ResCount{$namber}++;} > に。
ここにさらに $Oya{$namber}=$_; をいれて3050行目の ($Ti,$Name,$Tim)=split(/<>/,$RES[0]); を ($Ti,$Name,$Tim,$namber)=split(/<>/,$RES[0]); として、 3057行目の print<<"_TOP_"; の前に ($namber,$date,$name,$email,$d_may,$comment,$url, $space,$end,$type,$del,$ip,$tim) = split(/<>/,$Oya{$namber}); と入れてみてください。
結構、変更箇所ありましたね(^^;
|