包装中包含无效类型' - '？

note：顺便说一句，我正在用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');

我看不到我的代码中的任何问题，有谁能够帮助我？

来源

2012-11-26 sharksfan98

显示声明的其余部分。 Perl行号总是引用包含语句，所以问题可能在'my'和下一个';'之间的任何地方。 – melpomene

经常，并不总是 – ysth

https://gist.github.com/4146298 – sharksfan98

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

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

来源

2012-11-26 02:47:50 melpomene

包装中包含无效类型' - '？

回答

相关问题