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は今日も元気です。はい。