muxtapeに音声botを作った (polog)http://kyoujin.muxtape.com/ 全く何言ってんのかわかりませんがたまに'きほーんーてーきー'とか'そウCてーもぅUだーCta-'とか言い出して吹きます。 ソースは以下。 #!/usr/bin/perl use strict; use LWP::Simple; use XML::RSS; use Lingua::JA::Romanize::Japanese; use Data::Dumper; use Date::Simple; use WWW::Mechanize; sub reduce_candidate{ my $str = shift; my @words = split / /, $str; my @_words; for my $word (@words){ if($word =~ /^(.+?)\//){ push(@_word
