Top/Devel/Perl/MSN.pm (Bot-Depot realesed)

MSN.pm (Bot-Depot realesed)はてなブックマーク

MSN Messenger用Perlモジュール。

インストール

unzip -d MSN2 MSN2.0.84.zip

必要なCPANモジュールを入れる。

妖怪うらがえし

話しかけると文字の並びを裏返して返答するBot。
付属のechobot.plのMessage()を以下に差し替えて使う。

sub Message
{
    my($self, $username, $name, $message, %style) = @_;

    if($message =~ /^!exit$/i)
    {
        $msn->disconnect();
        $run = 0;
    }
    else
    {
        print $name;
        utf8::decode($name);
        utf8::decode($message);
        my $new = scalar reverse $message;
        utf8::encode($new);

        $self->sendMessage($new, %style);

        open(OUT, '>> ./log.txt');
        binmode(OUT, ':utf8');
        print OUT "$name<$username>:$message\n";
        close(OUT);
    }
}

話しかける

こんぴらふねふね

返答

ねふねふらぴんこ

その他のメッセンジャー用モジュール

参考

Amazon

差分 一覧