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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く