从 tk perl 接口中的子例程传递变量答案

【问题标题】：Passing variable from subroutine in tk perl interface从 tk perl 接口中的子例程传递变量
【发布时间】：2020-10-22 19:21:01
【问题描述】：

我正在使用 perl Tk 界面，我希望有一个按钮 test_1，单击此按钮后，我希望将变量 $varchoice 定义为 test_1。如果我按下按钮 test_2，变量 $varchoice 应该被定义为 test_2。

之前是我尝试完成此操作的代码的 sn-p：

$budget_frame->Button(-text => 'test_1',-command => sub{$varchoice=budget_plot_1()})->pack(-side => "left");
$budget_frame->Button(-text => 'test_2',-command => sub{$varchoice=budget_plot_2()})->pack(-side => "left");

sub budget_plot_1()
{
    print "plotting 1\n";
    my $var=1;
    return $var;
}

sub budget_plot_2()
{
    print "plotting 2\n";
    my $var=2;
    return $var;
}

如何调整此代码以获得所需的结果？

【问题讨论】：

我假设您在脚本开头声明了$varchoice。然后您的代码似乎可以按您的要求工作，除了当前您将$varchoice 设置为1 而不是test_1.. 如果您将其设置为test_1，它将完全按照您的要求工作

标签： perl variables tk subroutine

【解决方案1】：

您的程序似乎运行良好。这是我如何测试它的示例：

use feature qw(say);
use strict;
use warnings;
use Tk;

my $budget_frame = MainWindow->new(-title=>"Button test");
my $varchoice;

$budget_frame->Button(
    -text => 'test_1',
    -command => sub{ $varchoice = budget_plot_1() }
)->pack(-side => "left");
$budget_frame->Button(
    -text => 'test_2',
    -command => sub{ $varchoice = budget_plot_2() }
)->pack(-side => "left");
MainLoop;
say "Value of \$varchoice = $varchoice";

sub budget_plot_1()
{
    print "plotting 1\n";
    return "test_1";
}

sub budget_plot_2()
{
    print "plotting 2\n";
    return "test_2";
}

输出：

Value of $varchoice = test_1

【讨论】：