---

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

---

樋口先生、お世話になっております。アリです。

ご返事を頂き、ありがとうございます。

doc_cls.pmとhinshi.pmの中身を確認しましたが、hinshiの呼び方がまだよく分からないと思います。再教授を頂きたいですが、よろしくお願いします。

newproject.plに例のソース追加して、hinshiの中身をprintしたいですが、実行エラーがありました。

追加したこと
******
# データの取り出し
my $self = shift;
my $test = hinshi;
use Data::Dumper;
print Dumper($test);
#ここはsub hinshiを呼び出すため、doc_cls.pmと同じように書いた。
my $win = $self->{win_obj};
$win->title($self->gui_jt($self->label));
my $lf_w = $win->LabFrame(
-label => 'Words',
-labelside => 'acrosstop',
-borderwidth => 2,
)->pack(-fill => 'both', -expand => 1);

$self->{words_obj} = gui_widget::words->open(
parent => $lf_w,
verb => '使用',
);

sub hinshi{
　my $self = shift;
　return $self->{words_obj}->hinshi;
}
******
エラーメッセージは**can't call method 'hinshi' on an defined value **

mysql_crossout::csv->newに渡す引数hinshiはどのタイプの変数でしょうか。配列ですか？GUIからの選択により呼び出してはなく、tani => 'H2'のように直接に実データを作って、渡すことが可能でしょうか？

また、mysql_crossout::csv->new->runをスムースに実行すると、csvファイルが直接に出力しますか？もしくは、抽出語リストと同様、次のようにopen必要となりますか？
my $file_matrix = mysql_crossout::csv->new(
.....
)->run
gui_OtherWin->open($file_matrix);

こんなに簡単な質問でいいのか、先生にご迷惑をかけるかと思っていますが、Perlのほうは初心者なので、何卒よろしくお願い致します。