| 2003/09/24(Wed) 16:31:48 編集(投稿者)
どうもうまくいきません。 (^_^; 確認のために、下記のようで間違いがないか、すみませんがお時間のある時に、チェックしていただけますでしょうか。
■No7792に返信(りゅういちさんの記事) > これは %ResCount=(); のほうがいいです。
3038 @RES=(); $N=0; を、 @RES=(); %ResCount=(); に。
> ここの unshift(@RES,"$ti<>$name<>$tim<>"); を > unshift(@RES,"$ti<>$name<>$tim<>$type<>"); に
3044 if($type){$ti=sprintf("%011d",$tim); if($date){unshift(@RES,"$ti<>$name<>$tim<>");} $N++;} を、 if($type){$ti=sprintf("%011d",$tim); if($date){unshift(@RES,"$ti<>$name<>$tim<>$type<>");} $ResCount{$type}++;} に。
> ここにさらに $Oya{$namber}=$_; をいれて
3045 else{$ti=sprintf("%011d",$tim); if($date){unshift(@RES,"$ti<>$name<>$tim<>");} $N++; last;} を、 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]); として、
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}); > と入れてみてください。
3057 print<<"_TOP_";の前に、2行の空行を作成し、
($namber,$date,$name,$email,$d_may,$comment,$url, $space,$end,$type,$del,$ip,$tim) = split(/<>/,$Oya{$namber}); print<<"_TOP_";
それと、あと一つが、 3061 <th>$N</th><th>$Name</th><td align=center><small>$date</small></td> を <th>$ResCount{$namber}</th><th>$Name</th><td align=center><small>$date</small></td>
と、したのですが、これで、間違いないでしょうか? どうも、どこかで私が勘違いしているような気がします。
すみませんです。 m(_._)m
|