#!/usr/bin/perl use strict; use warnings; use XML::RSS; use LWP::Simple; use XML::Simple; use URI::Escape; use utf8; binmode STDOUT, ":utf8"; my $appid = "YahooDemo"; my $rss_url = shift; my $rss_cont = get($rss_url) || ""; my $rss = XML::RSS->new; $rss->parse($rss_cont); my %next_words; my $pre = ""; foreach my $i (@{$rss->{items}}) { my $ma_ref = webma($i->{title}."\n".$i->{description}); foreach my $mo (@{$ma_ref->{ma_result}->{word_list}->{word}}) { my $w = $mo->{surface}; $w = "" if ref($w) eq "HASH"; next if ($pre eq "" and $w eq ""); push @{$next_words{$pre}}, $w; $pre = $w; } } my @words; my $cur = ""; for (my $i = 0; $i < 200; $i++) { my $tmp = $next_words{$cur}; $cur = $tmp->[rand(@$tmp)]; last if $cur eq "" and $i > 100; push @words, $cur; } print join("", @words), "\n"; sub webma { my ($key) = @_; my $url = "http://jlp.yahooapis.jp/MAService/V1/parse" ."?appid=$appid&results=ma&response=surface" ."&sentence=".URI::Escape::uri_escape_utf8($key); return {} if length($url) > 10000; my $response = get($url); my $xmlsimple = XML::Simple->new(ForceArray => [ 'word' ]); return $xmlsimple->XMLin($response); }
./rss-lm.pl http://chalow.net/cl.rdf
【初めての持ちが、ハーゲンダッツの会)ブログで焼いて、その他のひみつ][2008北海道へ行かなくて。場所は、彼のエコアート。ローマ人のスーパーでは一個29,400円は、-04-03-08-基本的な味で売っていた!描画がFX35-KChromeLUMIXでも、デニムの大和路[2008特にhttp://wassr...blog.com/2008受賞作品展」というかとか西麻布でオフィシャルにスイカを置いておいしいです。「北海道へ行かなくて。場所は、彼のエコアート。」ってのは、ポエムな感じで素敵です。
./rss-lm.pl http://d.hatena.ne.jp/naoya/rss
SKK分だけ、はてなハイクの発表を受けはてなハイクのインターンもbyteArray::Gapでした。金曜日はアルゴリズムの頃、はてなハイクのたつをさんから、あの変換スタイルにやろうと言えばThriftcodesKansai.net/~naoya1977/about-thrift/naoya/naoya1977/インフラを終えて発表資料を試みました。という課題が終わり、計算機科学にアップロードしましたことから何か適当に関する手法第2回募集ついに「はてなハイクのたつをさん」になってしまいました!
例:「今日」→「は」「も」「の」「の」「は」「から」「は」「の」(2) そのリストから一つランダムで選ぶ。
(x = 「今日」)