| ■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});
と入れてみてください。
結構、変更箇所ありましたね(＾＾; |
