包中的类型' - '无效？

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返回值中减去结果,而不是调用方法.这就是你收到错误的原因.