{"title":"Text::MeCab \u3067\u6587\u7ae0\u3092\u5206\u304b\u3061\u66f8\u304d\u306b\u3057\u3066 Algorithm::MarkovChain \u3067\u30de\u30eb\u30b3\u30d5\u9023\u9396","image_url":null,"categories":["Perl"],"author_url":"https://blog.hatena.ne.jp/a666666/","url":"https://blog.kyanny.me/entry/20090522/1242996119","height":"190","blog_title":"@kyanny's blog","author_name":"a666666","blog_url":"https://blog.kyanny.me/","provider_url":"https://hatena.blog","description":"markov chain and mecab \u00b7 GitHub #!/usr/bin/env perl use strict; use warnings; use Text::MeCab; use Algorithm::MarkovChain; use Perl6::Say; use Data::Dumper; open my $in, '<', shift or die $!; my $text = do { local $/; <$in>; }; close $in; my $mecab = Text::MeCab->new({}); my @symbols; for (my $node \u2026","provider_name":"Hatena Blog","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.kyanny.me%2Fentry%2F20090522%2F1242996119\" title=\"Text::MeCab \u3067\u6587\u7ae0\u3092\u5206\u304b\u3061\u66f8\u304d\u306b\u3057\u3066 Algorithm::MarkovChain \u3067\u30de\u30eb\u30b3\u30d5\u9023\u9396 - @kyanny&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","version":"1.0","published":"2009-05-22 21:41:59"}