| 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_";の前に、２行の空行を作成し、
($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
|
