【Perl】初心者コーナーPart11
■ このスレッドは過去ログ倉庫に格納されています
0612nobodyさん
02/04/16 03:38ID:Z11bRvgCいるLightChat のログを表示するためのCGIの一部です。
#管理人の私がコソーリROMるため(w
1. foreach $chatlog (@chatlog) {
2. ($name,$dmy1,$dmy2,$mail,$actime,$cont,$ip1,$ip2) = split(/<>/,$chatlog);
3. if ($cont =~/<b>\[/i){
4. $cont =~ s/<b>\[/<>/g;
5. $cont =~ s/]<\/b>/<>/g;
6. ($dmy,$personal,$cont2) = split(/<>/,$cont);
7. $name = "$personal";
8. }
9. print "<a href=\"$mail\">$name</a>> $cont2($actime)<br>\n";
10. # print "<a href=\"$mail\">$name</a>> $cont($actime)<br>\n";
11. print "<hr>\n";
12. }
これで、チャットのログを表示しようと思ったのですが、9行目の $cont2 に他の行
の内容が入ってしまうようです。 なお、3〜8行目を削除して10行目を生かすと
この障害は無くなります。
なにとぞ、よろしくお願いしますm(_ _)m
■ このスレッドは過去ログ倉庫に格納されています