Perl子程序无法通过刷新按钮更新文本界面求助

你的代码核心问题有两个：

• Label组件的文本仅在初始化时赋值，后续更新变量$text1不会自动同步到Label显示内容，因为Tk组件不会主动监听变量变化
• 代码中同时对Label使用了pack和grid布局，这会导致Tk内部布局冲突，虽然没报错但可能引发异常行为

use strict;
use warnings;
use Tk;
use Tk::LabFrame;
use Tk::widgets qw(LabFrame);
use POSIX;

my $mw = tkinit;

my $gridOrPack = "grid";
my $tpFrame = $mw->LabFrame(-label=>'Info');
my $code_font = $mw->fontCreate(-family => 'arial', -size => 10);

# 统一使用grid布局
if ($gridOrPack =~ /grid/i) {
  $tpFrame->grid(-row=>1, -column=>1, -sticky=>'nsew');
  $mw->gridRowconfigure(1, -weight => 1);
  $mw->gridColumnconfigure(1, -weight => 1);
} else {
  $tpFrame->pack(-side=>'top',-expand=>1,-fill=>'both');
}

# 初始化SSID文本
my $text1 = qx(Netsh WLAN show interface | grep -w SSID | perl -pne s/.*?:.//);
chomp($text1);

# 保存Label的引用，方便后续更新
my $ssid_label = $tpFrame->Label(
    -text => "Network  :   " . $text1 . " ",
    -font => ['arial', '10'],
    -justify => 'left'
);

# 用grid布局Label和按钮
$ssid_label->grid(-row=>0, -column=>0, -padx=>5, -pady=>5);
my $refresh_btn = $tpFrame->Button(
    -text => 'Refresh Info',
    -bg => 'yellow',
    -width => 11,
    -height => 3,
    -command => sub { toggle($ssid_label) },
    -font => $code_font
)->grid(-row=>0, -column=>1, -padx=>5, -pady=>5);

MainLoop;

sub toggle {
    my ($label) = shift;
    # 获取最新SSID
    my $new_ssid = qx(Netsh WLAN show interface | grep -w SSID | perl -pne s/.*?:.//);
    chomp($new_ssid);
    # 直接更新Label的文本
    $label->configure(-text => "Network  :   " . $new_ssid . " ");
}

• 保存了Label组件的引用$ssid_label，在toggle函数中通过configure方法直接更新Label的-text属性，这是Tk组件更新显示的标准方式
• 移除了Label上混用的pack调用，统一使用grid布局，避免布局冲突
• 修改toggle函数的参数，直接接收Label引用，无需通过变量引用间接操作，逻辑更清晰

内容的提问来源于stack exchange，提问作者gizmo