如何读取IRC聊天消息

Question

使用Perl模块AnyEvent::IRC::Connection，我能够按如下方式连接到to服务器：

use AnyEvent;
use AnyEvent::IRC::Connection;
use Data::Dumper;  

use constant IRC_ADDR    =>   'irc.chat.twitch.tv';
use constant IRC_PORT    =>    6667;
use constant IRC_AUTH    =>   'my_token';          # http://www.twitchapps.com/tmi/
use constant IRC_NICK    =>   'my_nick';
use constant IRC_CHAN    =>   'some_channel';

my $c = AnyEvent->condvar;
my $con = new AnyEvent::IRC::Connection;
$con->connect(IRC_ADDR, IRC_PORT);
$con->reg_cb (
  connect => sub {
    my ($con) = @_;
    $con->send_msg (PASS => 'oauth:' . IRC_AUTH);
    $con->send_msg (NICK => IRC_NICK);
    $con->send_msg (JOIN => IRC_CHAN);
  },
  'irc_*' => sub {
    my ($con, $msg) = @_;
    print ">> " . Dumper($msg) . "\n";
  },
  dcc_chat_msg => sub {
    my ($con, $id, $msg) = @_;
    print "DCC $id> $msg\n";
  },
);
$c->wait;

但是，我无法阅读任何公开的聊天消息。我怎么才能接触到它们？

Answer 1

IRC上的房间是以#为前缀的，所以您加入了不存在的some_channel，而不是#some_channel。

还请注意，not上的通道总是小写的，所以#barrycarlyon而不是#BarryCarlyon