如何在 wxperl EVT_BUTTON 中传递其他参数

Question

我正在尝试将参数传递给处理 wxPerl EVT_BUTTON 事件的 perl 子例程。我明白当我使用时：

EVT_BUTTON($frame, $button, \&onClick);

我将可以在onClick 中访问 $frame 和 $button 及其函数。但是，我试图让子例程读取其他参数，主要是各种其他 Wx::CheckBox 值的值/状态。

我看到这项工作的唯一方法是使用全局变量并让onClick 读取它们，但我想在其他地方重用onClick，并且使用全局变量是我最不喜欢的选项。

我尝试了各种方法，但都失败了，例如：

EVT_BUTTON($frame, $button, \&onClick(arg1,arg2));

我认为解决方案在于理解 Perl 引用是如何工作的，因为我们通过 \&onClick 和前面的 \& 指示符。但是我缺乏 Perl 方面的知识...

感谢任何帮助

Answer 1

试试这个，

EVT_BUTTON($frame, $button, sub{ onClick($arg1,$arg2) });

引用anon子程序，然后调用onClicksub，相当于：

my $subref = sub{ onClick($arg1,$arg2) };
EVT_BUTTON($frame, $button, $subref);