如何在 Perl/Tk 中将参数传递给子例程？

Question

我设计了一份注册表单，在获得所有必要的值后，我将在该表单中单击“提交”按钮。

单击提交按钮时，我想调用一个函数，并将参数传递给该函数。

我已经为此目的编写了代码，但在获取详细信息之前首先调用该函数。（即）在注册表单中获取详细信息后，我需要将这些值传递给一个函数，并且需要验证这些值。

但发生的事情是，在获取详细信息之前，函数被调用。

Answer 1

卡洛斯的建议是一种方法。另一种方法是在按钮上放置一个命令回调，该按钮从表单中读取值并调用您的函数，也许像这样。

$button->configure(-command => sub { yourFunc($var1, $var2); });

我假设您已将表单的字段绑定到变量 $var1 和 $var2 ；当然要根据自己的情况进行修改。

Answer 2

在指定绑定到小部件的代码引用和参数时，您有许多选项：

$w->configure( -command => [ \&subname,   @args ... ]             );
$w->configure( -command => [ sub { ... }, @args ... ]             );
$w->configure( -command => [ 'methodname', $invocant, @args ... ] );
$w->configure( -command => [ $invocant, 'methodname', @args ... ] );

请参阅 Tk::callbacks POD 了解更多信息。

Answer 3

听起来像是 vwait 问题。检查 Perl/Tk 文档：

$widget->waitVariable(varRef)

通过这种方式，您可以确定您的代码仅在修改等待变量时执行（即单击“提交”按钮时）

希望它有所帮助。