{"categories":["Perl"],"provider_url":"https://hatena.blog","title":"Lingua::JA::Summarize \u5165\u9580","version":"1.0","blog_title":"@kyanny's blog","url":"https://blog.kyanny.me/entry/20090522/1242986112","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.kyanny.me%2Fentry%2F20090522%2F1242986112\" title=\"Lingua::JA::Summarize \u5165\u9580 - @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>","author_url":"https://blog.hatena.ne.jp/a666666/","image_url":null,"author_name":"a666666","type":"rich","width":"100%","published":"2009-05-22 18:55:12","description":"Lingua::JA::Summarize sample \u00b7 GitHub #!/usr/bin/env perl use strict; use warnings; use Lingua::JA::Summarize; use Perl6::Say; use Encode; my $in = do { local $/; <>; }; my $s = Lingua::JA::Summarize->new({ charset => 'utf8', mecab_charset => 'utf8', default_cost => 1.8, singlechar_factor => 0.2, })\u2026","provider_name":"Hatena Blog","blog_url":"https://blog.kyanny.me/","height":"190"}