作者Citral (..)
看板perl
标题想请问一段perl的写法...
时间Tue Sep 7 01:20:14 2004
sub says {
&checkserver;
if ($V{says}) {
if ($V{level}<$level_toway) {$V{toway}="";}
if ($V{level}<$level_wordcolor) {$V{wordcolor}="";}
if ($V{level}<$level_addsays) {$V{addsays}="";}
if ($V{level}<$level_addsign) {$V{addsign}="";}
if ($V{wordcolor}) {
$wordcolor1="<font color=$V{wordcolor}>";
$wordcolor2="</font>";
}
if ($V{towho}) {
if ($V{toway}) {
$toway="只对";
} else {
$toway="对";
}
$towho="$V{towho}说";
}
if ($V{addsays}) {
if ($towho ne "") {
$addsays=$V{addsays};
} else {
$addsays="$V{addsays}说";
}
}
if ($V{addsign}) {
$addsign="<font face=wingdings size=3>$V{addsign}</font>";
}
$says = "$wordcolor1$V{id}\$ip$addsays$toway$towho: $V{says}$addsign$wordcolor2 <font size=1>$V{time}</font>";
open(FILE,">>$filehead/mess\.txt");
flock(FILE,2) if ($unix);
print FILE "$V{datetime}|$V{ip}|$V{id}|$V{sex}|$V{level}|$V{toway}|$V{towho}|$says\n";
flock(FILE,8) if ($unix);
close(FILE);
}
$V{job}="look";
}
这是源自於thankschat聊天室里头一个thankschat_says档
我想把私下对谈部分(也就是toway那一段)独立出来再写成另外一行$says
好去编辑私谈部分,我想加入跑马灯
有高手可以指点一二吗??
这是我这份档案的原始档
http://virtualspace.myweb.hinet.net/thankschat_says.zip
烦请赐教....感激不尽...^^
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.228.174.177