ゲレンデがとけるほどくだらないスクリプト - すぎゃーんメモ
再びMeCabを使ってみた。 MacにてText::MeCabを使う - すぎゃーんメモ 形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ 今回は形容詞や動詞の前に「ゲレンデがとけるほど」を挿入する。 kohmingサブルーチンに日本語の文章を渡せば挿入された文章が返ってくるようにした。 サンプルとして便利なWassrのpublic timelineを使用して試してみる。 #!/opt/local/bin/perl use strict; use warnings; use JSON 'decode_json'; use LWP::Simple 'get'; use Text::MeCab; use Readonly; Readonly::Scalar my $kohmi => 'ゲレンデがとけるほど'; my $json = get 'http://a
形態素解析を使って適当な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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
