TermExtract::BrillsTagger
-- 専門用語抽出モジュール（"Brill's Tagger"版)
use TermExtract::BrillsTagger;
入力テキストを、"Brill's Tagger"（英文の品詞タグ付与プログラム）にか
け、その結果をもとに入力テキストから専門用語を抽出するプログラム。
Brill's Taggerを元にして作られた Monty Tagger にも対応している。
なお、Brill's Tagger でタグ付けを行う場合は、事前にBrill's Tagger付
属のPerlスクリプト Tokenizer.pl をかけておくことを推奨している。
当モジュールの使用法については、親クラス（TermExtract::Calc_Imp)か、
以下のサンプルスクリプトを参照のこと。
#!/usr/local/bin/perl -w
#
# ex_BT.pl
#
# ファイルからBrill's Tagger の処理結果を読み取り
# 標準出力に専門用語とその重要度を返すプログラム
#
# version 0.09
#
#
use TermExtract::BrillsTagger;
#use strict;
my $data = new TermExtract::BrillsTagger;
my $InputFile = "BT_out.txt"; # 入力ファイル指定
# プロセスの異常終了時処理
# (ロックディレクトリを使用した場合のみ）
$SIG{INT} = $SIG{QUIT} = $SIG{TERM} = 'sigexit';
# 出力モードを指定
# 1 → 専門用語＋重要度、2 → 専門用語のみ
# 3 → カンマ区切り
my $output_mode = 1;
#
# ドキュメント中の専門用語の頻度を重要度計算に使うかどうか選択
# （デフォルトは使用 $obj->use_frq）
#
#$data->no_frq; # ドキュメント中の専門用語の頻度を重要度計算に使わない
#$data->use_frq; # ドキュメント中の専門用語の頻度を重要度計算に使う
#
# 重要度計算で連接語の"延べ数"をとるか"異なり数"をとるか選択
# （デフォルトは"延べ数"をとる $obj->use_total)
#
#$data->use_total; # 延べ数をとる
#$data->use_uniq; # 異なり数をとる
#
# 重要度計算で、学習機能を使うかどうか選択
# （デフォルトは、使用する $obj->use_stat)
#
#$data->use_stat; # 学習機能を使う
#$data->no_stat; # 学習機能を使わない
#
# 重要度計算で、「ドキュメント中の用語の頻度」と「連接語の重要度」
# のどちらに比重をおくかを設定する。
# デフォルト値は１
# 値が大きいほど「ドキュメント中の用語の頻度」の比重が高まる
#
#$data->average_rate(0.5);
#
# 学習機能用DBにデータを蓄積するかどうか選択
# 重要度計算で、学習機能を使うときは、セットしておいたほうが
# 無難。処理対象に学習機能用DBに登録されていない語が含まれる
# と正しく動作しない。
# （デフォルトは、蓄積する $obj->use_storage）
#
#$data->use_storage; # 蓄積する
#$data->no_storage; # 蓄積しない
#
# 学習機能用DBに使用するDBMをSDBM_Fileに指定
# （デフォルトは、DB_FileのBTREEモード）
#
#$data->use_SDBM;
#
# 過去のドキュメントの累積統計を使う場合のデータベースの
# ファイル名をセット
# （デフォルトは "stat.db"と"comb.db"）
#
#$data->stat_db("stat.db");
#$data->comb_db("comb.db");
#
# データベースの排他ロックのための一時ディレクトリを指定
# ディレクトリ名が空文字列（デフォルト）の場合はロックしない
#
#$data->lock_dir("lock_dir");
#
# 品詞タグ付け済みのテキストから、データを読み込み
# 専門用語リストを配列に返す
# （累積統計DB使用、ドキュメント中の頻度使用にセット）
#
#my @noun_list = $data->get_imp_word($str, 'var'); # 入力が変数
my @noun_list = $data->get_imp_word($InputFile); # 入力がファイル
#
# 前回読み込んだ品詞タグ付け済みテキストファイルを元に
# モードを変えて、専門用語リストを配列に返す
#$data->use_stat->no_frq;
#my @noun_list2 = $data->get_imp_word();
# また、その結果を別のモードによる結果と掛け合わせる
#@noun_list = $data->result_filter (\@noun_list, \@noun_list2, 30, 1000);
#
# 専門用語リストと計算した重要度を標準出力に出す
#
foreach (@noun_list) {
# 数値のみは表示しない
next if $_->[0] =~ /^\d+$/;
# 結果表示
printf "%-60s %16.2f\n", $_->[0], $_->[1] if $output_mode == 1;
printf "%s\n", $_->[0] if $output_mode == 2;
printf "%s,", $_->[0] if $output_mode == 3;
}
このモジュールでは、get_imp_word のみ実装し、それ以外のメソッドは親
モジュール TermExtract::Calc_Imp で実装されている。
get_imp_word は品詞タグ付与を行い抽出された単語を、個々の単語の語順
と品詞情報を元に複合語に生成している。それ以外のメソッドについては、
TermExtract::Calc_Imp のPODドキュメントを参照すること。
英文の品詞タグ付与結果を次のルールにより複合語に生成する。第１引数は、
処理対象のデータ、第２引数は第１引数の種別である。デフォルトでは、第１
引数は、品詞タグ付け済みのテキストファイルとなる。第２引数に文字列
'var'がセットされたときには、第一引数を品詞タグ付け済のテキストデータ
が入ったスカラー変数と解釈する。
１．各品詞は次のとおり結合する
（１）名詞(NN) → 名詞、形容詞、基数、過去分詞の動詞に
結合する。複合語の先頭になる。
（２）外来語(FW) → 単語として処理
（３）基数(CD) → 複合語の先頭のみ許可する
（４）形容詞(JJ) → 形容詞,所有格語尾,基数に結合する。
複合語の先頭になる
(５）所有格語尾(POS) → 名詞に結合する
（６）of → 名詞に結合する
（７）過去分詞の動詞(VBN) → 複合語の先頭のみ許可する
２．改行があった場合は、そこで複合語の区切りとする
３．次の記号や数値で始まる語の場合は、そこで複合語の区切りとする
+-%\&\$*#^|
４．複合語は名詞か外来語で終わるものとし、以後は切り捨てる
５．固有名詞以外の名詞は、先頭が大文字の場合に小文字に変換する
６．複合語の名詞(NNS)を単数形に変える
７．' （シングルクォーテーション)で区切られた語は単語とする
８．複合語末尾の , . は除去する
９．重要度計算において次の語は無視する
of Of OF
TermExtract::Calc_Imp
TermExtract::Chasen
TermExtract::MeCab
TermExtract::EnglishPlainText
TermExtract::ChainesPlainTextUC
TermExtract::ChainesPlainTextGB
TermExtract::ICTCLAS
TermExtract::JapanesePlainTextEUC
TermExtract::JapanesePlainTextSJIS
このプログラムは、東京大学・中川裕志教授、横浜国立大学・森辰則助教授が
作成した「専門用語自動抽出システム」のtermex_e.pl を元にモジュール
TermExtract用に書き換えたものである。
この作業は、東京大学・前田朗 (maeda@lib.u-tokyo.ac.jp)が行った。
なお、本プログラムの使用において生じたいかなる結果に関しても当方では
一切責任を負わない。