markov chain and mecab · 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; …

$ svn propset svn:ignore . -F .svnignore $ cat .svnignore public_html/*.html *.txt $ こんなのはうまくいかない。 .gitignore とかだとこういうトップレベルからの相対パスを使った無視パターンの書き方でいけるけど、 subversion の場合は $ svn props…

Lingua::JA::Summarize sample · 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…

Extract のほうは、名前空間的に Lingua::JA::Summarize を use してごにょごにょやってるもんだと思い込んでいたけど全然違った。 mecab 使ってどうこうするのが Lingua::JA::Summarize のほうで、 mecab 使わず自前で N-gram とかいろいろやってるのが ::E…

HTTP::Engine を動かしてみて、スタンドアロンのサーバを起動して単一のハンドラを書くところまではできた じゃあ次は Dispatcher だ HTTP::Router ってのをどこかで見かけたなとうっすら覚えてたので POD を読む HTTPx::Dispatcher, Path::Router, Path::Di…

HTTP-Engine-0.03005 - Web Server Gateway Interface and HTTP Server Engine Drivers - metacpan.org local::lib で $HOME/perl5 以下をいろいろセットアップしてからインストール。一発で依存含めて全部入った。 HTTP::Engine, HTTP::Engine::Interface::…

まだ半分くらいの、もともと興味があった漫画しか読めてない。漫画読むのにリハビリが必要になるとは・・・。 僕の小規模な生活 劇中で福満しげゆきが「あっ！トヨエツ似の編集者と若い女の編集者が楽しそうに喋りながら歩いてる！ ・・・不倫？」とか妄想す…