形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ

MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab->parse($ARGV[0]); my @nodes = (); # 分かち書きしたものを一つの配列に入れる my @noun = (); # 名詞を検出した番号を格納する my $index = 0; while ($n = $n->next) { push(@nodes, $n->prev->surface); if ((split(/,/, $n->prev->feature))[0] eq '名詞') { push

[sugyan]

本当にJASR○Cが来たら記事削除します

[tsupo]

kazuhoでkazuhoのkazuhoでもkazuhoして、kazuhoをkazuhoにkazuhoるようにしてkazuhoでkazuho時間ごとにkazuhoしたりしたらkazuhoかも！？

[likk]

JASR○C待ち

[kdaiba]

形態素解析の見事な利用法

[mattn]

おしい！「本日のnick「%s」は%sの提供でお送りしています」をポストする必要があるね

[kazuhooku]

JASR○C のほうから来ました