包中的类型' - '无效？

Question

注意：顺便说一句，我在Perl 5上使用Perl / Tk编写GUI。

我尝试执行我的代码，但要找到此错误消息：

COUNT 0
Invalid type '-' in pack at pack2.pl line 62.

这是我申请中的第62行：

my $be = $f1->BrowseEntry(-label => "Widget $count:",
        -choices => ["right", "left", "top", "bottom"],
        -variable => \$packdirs[$count], -browsecmd => \&repack)
        -pack(-ipady => 5, -side => 'left');

我的代码中没有任何问题，有人可以帮助我吗？

Answer 1

    -pack(-ipady => 5, -side => 'left');

我认为这应该是->pack，而不是-pack。您调用内置->pack()函数并从pack的返回值中减去结果，而不是调用->BrowseEntry方法。这就是你收到错误的原因。