樋口先生

初めまして。
標題の件でご質問があります。

抽出後リストを以下の条件で"自動生成"させたいと考えています。
・抽出語リストの形式：　　　　品詞別
・記入する数値：　　　　　　　出現回数
・出力するファイルの形式：　　カンマ区切り

以前掲示板で出ておりました、自動実行に関する質問および回答を参考に、プラグインで使用する「auto_run.pm」を編集して抽出語リストの自動生成を試みていますが、うまくできていない状況です。

参考にしていた回答→http://khcoder.info/cgi-bin/bbs_khn/khcf.cgi?no=1714&reno=1713&oya=1713&mode=msgview


前処理実行後、「my $win = gui_window::word_list->open;」より抽出後リストのオプションダイアログまでは自動で表示できていますが、その先に進むことができません。
（この先のコードを書くことができていない状況です。）
※こちらはFAQにあります「ソースコードの編集」を参考にしていました。


抽出語リストファイルの自動生成方法をご教授いただけますでしょうか。

よろしくお願いいたします。

こんにちは、樋口です。書き込みありがとうございます。

ここまで来ていればあと一歩ですね。

抽出語リスト作成用のウィンドウを開くためのプログラムは
「kh_lib\gui_window\word_list.pm」というファイルに入って
います。

このファイルを開いて「OK」ボタンの作成部分（145行目〜）を
見てみると、「OK」ボタンクリック時の動作として「$self->save;」
を呼び出しています。

すなわち、このファイルの155行目の「save」というサブルーチン
を呼んでいます。このサブルーチンの中身を見ると、
mysql_words->word_list_custom()というサブルーチンを呼び出す
ことで抽出語リストを作成しています。

mysql_words->word_list_custom()に渡している引数はシンプルな
ものなので、この場合はわざわざ
「my $win = gui_window::word_list->open;」でWindowを開く必要
は無いでしょう。以下のように直接mysql_words->word_list_custom()
を呼べば良いかと思います。


my $target_file = mysql_words->word_list_custom(
type => 'def',
num => 'tf',
ftype => 'csv',
tani => undef,
);

gui_OtherWin->open($target_file);

早速のご回答、ありがとうございます。

ご提供いただいたソースコードにて実行したところ、無事、抽出後リストファイルが自動生成されました。ありがとうございます。

実際にファイルを作成している処理などに注目すること、今後のソースコード編集の参考にさせていただきます。