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

[saronpasu]

なんかいろいろやってるなぁ。

[MayBowJing]

[system:unfiled]

[sankaseki]

muxtapeに音声botを作った (polog)

[se-mi]

すげえ。

[tkmr2000]

初音ミク vs kyoujin

[pha]

sugoi