Perl 要約処理 至急

Question

至急、ご教授お願いします。

今、perl言語を使い要約プログラムを作っています。大方のプログラムはできたのですが、接続詞の処理に困っています。mecabという形態素解析結果を使い重要度を計算し要約文の抽出をしているのですが、要約する上で接続詞を取り除くことはできているのですが、ただ取り除くだけでは前後の文との関係がおかしくなってしまい違和感を感じます。

そこで接続詞が来たら、その前の文を見て要約文として抽出されていたら接続詞を取り除かないという処理をしたいです。
どうかご教授お願いします。

Comments

[gusao]

Perlは専門外なので回答はできませんが…
コードが非常に見づらいです。改行・インデントなどで整形して、teratailの編集機能でコードを囲うようにしたほうが、回答を得られやすいのではないかと思います。

Answer 1

直接Mecabとは関係ありませんが、文章の「係り受け解析」と言うものを使うことで、文脈をある程度考慮することができます。
係り受け解析機に、Cabochaというものが有ります。
こちらが、perlも対応しているので利用を考えてみてはいかがでしょうか？