想請問一段perl的寫法...
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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
