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

Question

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

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

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

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

Answer 1

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

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

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