[Perl] Bot irc – Check Who in Channel

Posted on

by sornram9254


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-

Published by

sornram9254

Ayutthaya Technical College/Voc.Cert.🛠️ | KMUTNB/B.S.Tech.Ed.⚙️ | Information Security Engineer 👨🏻‍💻| Penetration Tester👨🏻‍💻 | COYG🔴 Milan🔴⚫️ | Taylor Swift👩‍🎤 | ติ่งซีรีส์ญี่ปุ่น 🇯🇵

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.