如何将后续创建的Widget对象传入Perl Tk的回调函数？

你遇到的核心问题是变量作用域——Optionmenu的回调创建时，$table还未被赋值，直接引用会报错。这里有两种简单的解决方式：

方法一：提前声明$table变量，利用Perl词法作用域特性 #

在tk_gui子例程开头先声明my $table;，后续再给它赋值创建Table组件。这样回调里的$table会绑定到这个词法变量，等Table创建完成后，回调就能正确引用到它。

修改后的tk_gui子例程代码：

sub tk_gui {
    my $mw = MainWindow->new;
    $mw->geometry("500x500");
    my $f = $mw->Frame()->pack(-side=>'top');
    my ($var, $tvar);
    # 提前声明$table变量，让回调能捕获到它
    my $table;

    my $opt = $f->Optionmenu(
        -options => [[jan =>1], [feb =>2]],
        -command => sub { 
            my $selected_val = shift;
            # 确保table已初始化后再调用
            show_table_data($selected_val, $table) if defined $table;
        },
        -variable => \$var,
        -textvariable => \$tvar,
    )->pack(-side => 'left', -anchor => 'n');  

    my $f2 = $mw->Frame()->pack(-side=>'bottom');
    # 给提前声明的$table赋值
    $table = $f2->Table( -columns => 2);
    my @col = qw(id product);

    foreach my $c (0 .. 1) {
        my $text = $col[$c];
        my $t = $table->Label(-text => $text); 
        $table->put(0, $c, $t); 
    }

    $table->pack();

    MainLoop;
}

方法二：Table创建完成后，重新绑定Optionmenu的回调 #

先创建Optionmenu时不指定有效回调，等Table创建好之后，用configure方法重新设置-command参数，这样就能直接使用已经存在的$table对象。

示例代码：

sub tk_gui {
    my $mw = MainWindow->new;
    $mw->geometry("500x500");
    my $f = $mw->Frame()->pack(-side=>'top');
    my ($var, $tvar);

    # 先创建Optionmenu，暂不设置有效回调
    my $opt = $f->Optionmenu(
        -options => [[jan =>1], [feb =>2]],
        -variable => \$var,
        -textvariable => \$tvar,
    )->pack(-side => 'left', -anchor => 'n');  

    my $f2 = $mw->Frame()->pack(-side=>'bottom');
    my $table = $f2->Table( -columns => 2);
    my @col = qw(id product);

    foreach my $c (0 .. 1) {
        my $text = $col[$c];
        my $t = $table->Label(-text => $text); 
        $table->put(0, $c, $t); 
    }

    $table->pack();

    # Table创建完成后，重新绑定回调
    $opt->configure(-command => sub {
        my $selected_val = shift;
        show_table_data($selected_val, $table);
    });

    MainLoop;
}

补充：完善show_table_data函数示例 #

为了让你看到实际效果，这里补充一个能根据选中值更新Table内容的实现：

sub show_table_data {
    my $num = shift;
    my $table = shift;

    # 根据选中数字匹配$data中的月份（1对应Jan，2对应Feb）
    my $month = $num == 1 ? 'Jan' : 'Feb';
    my $row_data = $data->{$month};

    # 清空原有数据行（保留表头）
    for my $row (1 .. $table->totalRows -1) {
        $table->delete($row);
    }

    # 插入新数据
    $table->put(1, 0, $table->Label(-text => $row_data->{id}));
    $table->put(1, 1, $table->Label(-text => $row_data->{product}));
}

内容的提问来源于stack exchange，提问作者A.G.Progm.Enthusiast