- 915 名前：913 [2006/02/19(日) 21:07:39 ID:sC6i+j2R]
- >>914
ありがとうございます。早速書き換えしてみたのですが、エラーが出ます。
私の書き方で不自然な箇所はありますか？
##### 新しいデータの追加
sub add_newdata{
length ($chat) >= 200 #
($chat =~ /\n/) >= 5 #
($chat && $cname) || return;
if($url && $url ne 'http://'){
$linkto="<a href=\"$url\">$linkcharacter</a>";
}
$newdata = "<FONT SIZE=\"3\" COLOR=\"$CT[$clrno]\"><B>$cname</B></FONT> : $linkto $chat <FONT SIZE=\"2\">[$date_now]</FONT><BR>\n";
while(@datas > $maxlines - 1){
pop(@datas);
}
unshift(@datas, $newdata);
$update_flag = 1;
}
|
 |
