---

[ツリー表示] [留意事項] [ワード検索] [過去ログ]

---

樋口先生

お世話になります、tetと申します。

少し前からKHCoderを使用して一般的に使用されている
テキストマイニング手法の比較・評価を行っています。
ゆくゆくはKHCoderを使用した文章収集ツールを作成しようと考えており、
現在、自作のプログラムからKHCoderを呼び出して自動処理を実行させる実験をしています。

このため、auto_run.pmを改造して「文書ｘ抽出語」表をCSVファイルに自動出力させることを試みているのですが、
上手くいかずに困っています。
具体的には、元となる共起ネットワーク作成処理の部分を以下のように修正しています。
================================
# 「文書ｘ抽出語」表作成
my $win = gui_window::morpho_crossout::csv->open;
$win->{words_obj}->{ent_min}->delete('0', 'end');
$win->{words_obj}->{ent_min}->insert('end', '1');
$win->{words_obj}->{ent_min_df}->delete('0', 'end');
$win->{words_obj}->{ent_min_df}->insert('end', '1');
# CSV ファイル保存
$win->save;
================================

この場合、ファイル保存のダイアログが表示され、手動で保存すれば正常に結果が出力されます。
しかし、これをいじって保存処理まで自動化しようとするとうまくいきません。

gui_window::morpho_crossout::csv パッケージを確認してみましたが、
他機能のsaveサブルーチンと異なり、getSaveFileで保存ファイル名を取得しているので
上手くいかないのかと思っているのですが、何か良い解決方法はないでしょうか。

この実験を機にperlを勉強し始めたので、知識の至らぬ点があるかもしれませんが、
どうぞよろしくお願いいたします。