sornram9254Leave a comment

[Perl] Bot irc – Check Who in Channel


if ($svrmsg=~m/\:(.*) 353 (.*) = \#(.*) \:(.*)/i) {
print $connect "PRIVMSG ",$channel," :\xA4\xB9\xB7\xD5\xE8\xCD\xC2\xD9\xE8\xE3\xB9\xCB\xE9\xCD\xA7\xB9\xD5\xE9 ==> $color{'T5'} $4\r\n";
}
#\xA4\xB9\xB7\xD5\xE8\xCD\xC2\xD9\xE8\xE3\xB9\xCB\xE9\xCD\xA7\xB9\xD5\xE9 = คนที่อยู่ในห้องนี้

ปล. มันมีวิธีเช็คดีกว่านี้มั้ยเนี่ย –”
/me เขียนได้เกรียนมั่กๆ -0-