MSN.pm (Bot-Depot realesed) の変更点
MSN Messenger用Perlモジュール。
-[[Bot-Depot>http://www.bot-depot.com/]]
--ダウンロード:[[Botwork - The Bot Network>http://www.botwork.com/downloads.html]]
**インストール
unzip -d MSN2 MSN2.0.84.zip
必要なCPANモジュールを入れる。
**妖怪うらがえし
話しかけると文字の並びを裏返して返答するBot。~
付属のechobot.plのMessage()を以下に差し替えて使う。
#code(perl,nonumber,nooutline){{
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);
}
}
}}
話しかける
こんぴらふねふね
返答
ねふねふらぴんこ
*その他のメッセンジャー用モジュール
-[[search.cpan.org: David Davis / POE-Component-Client-MSN-0.03>http://search.cpan.org/~xantus/POE-Component-Client-MSN-0.03/]]
--POEについては[[POE - Perl Object Environment に触れる : NDO::Weblog>http://naoya.dyndns.org/~naoya/mt/archives/000514.html]]
-[[MSN Messenger Client >http://www.adamswann.com/library/2002/msn-perl/]] (via [[MSN メッセンジャの状態表示>http://home.kendomo.net/server/messenger.html]])
-[[Net：：Msmgr>http://search.cpan.org/~slstat/Net-Msmgr/]]
--
perl -MCPAN -e 'install Net::Msmgr'
-[[Net：：MSN>http://search.cpan.org/~djr/Net-MSN/]]
--
perl -MCPAN -e 'install Hash::Merge'
perl -MCPAN -e 'install Net::MSN'
--[[YappoLogs: Net::MSNメモ>http://blog.yappo.jp/yappo/archives/000054.html]]
*参考
-MSN.pm (Bot-Depot realesed)
--[[Ceekz Logs: サインインしました>http://private.ceek.jp/archives/000651.html]]
-[[Perl5.8 での Unicode 文字列の注意点 :: Drk7jp>http://www.drk7.jp/MT/archives/000528.html]]
-[[Perl one liner 集 perl 1行野郎>http://sonic64.hp.infoseek.co.jp/2003-06-04.html#2003-06-04-1]]
*Amazon
#amazon(4873111269,left)
#amazon(4873111676,left)
