Net::IPMessenger::Bot とかいうのを作ってみたり

こちらの記事を読んで「IRCいいなー。ウチIPMessengerだしなー」とボヤいていたところ、ボス@Niigata.pmが「IPMessengerBot需要あるかも」とつぶやいていたので、こんなの作ってみました。

Net::IPMessenger::Bot - IPMessenger-Bot building framework - metacpan.org

使い方はこんな感じ。

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Net::IPMessenger::Bot;
use Sys::Hostname ();

my $bot = Net::IPMessenger::Bot->new(
    configure => {
        NickName  => 'hayashi_bot',
        GroupName => 'bot',
        UserName  => 'hayashi_bot',
        HostName  => Sys::Hostname::hostname(),
    },  
    on_message => [
        qr/いつやるの?/ => sub { "いまでしょ" },  
    ],  
);

$bot->start;

その後ボスが「ないかも」とつぶやいていたとおり、あまり使い道がナイデスネ。
broadcastで送信してウザがられればいいですかね?

正直情報共有ツールとしてのIPMessengerはもうやめにしたいんですけどね...なんだかなぁ...

ひとまず社内に仕込んだイカちゃんbotは今日も元気です。はい。