Question

这是一个令人难堪的问题,但为什么这一条线工作,而另一条则没有作用?

Working line:

use strict;
use warning;
use Wx qw(:everything);
my $dialog = Wx::MessageDialog->new(
    $self,
   "About test
" .  "Version 0.01
",
   "About Test",
   wxOK | wxCENTRE
);

非工作线:

use strict;
use warning;
use Wx;
my $dialog = Wx::MessageDialog->new(
   $self,
   "About test
" .  "Version 0.01
",
   "About Test",
   wxOK | wxCENTRE
);

3. 非工作线的错误信息:

Bareword "wxOK" not allowed while "strict subs" in use at test.pl line 123.
Bareword "wxCENTRE" not allowed while "strict subs" in use at test.pl line 123.
BEGIN not safe after errors--compilation aborted at test.pl line 348.

Answer 1

It is the equivalent of this:

BEGIN {
    require  Wx ;
    Wx->import(  :everything  );
};

该守则将把Wx输入现名空间。我的猜测是,Wx使用出口商,并且有一批东西可以进口,而需要的是:不间断。

You can check the Wx s source and Exporter s source to try to make more sense of it.

I missed your working/non-working example. The non-working one doesn t work because the wxOK and wxCENTRE constants are not imported into the current namespace. This is done using Exporter, as explained above.

Answer 2

qw(:everything)

非常相似

(split    ,  :everything )

So

use Wx qw(:everything);

这与

use Wx  :everything ;

载体:everything <>/code>通过到Wx的例行出口(import)。斜体完全服从单元,但我假定Wx是“出口我可能出口的一切”。大多数模块都使用<代码>:所有,如果它们完全提供的话。

除非你提出要求,否则,它就认为Wx don 出口任何东西,例如wxOK和wxCENTRE,除非你告诉你,否则在您的名下没有出口。出口

use Wx qw( wxOK wxCENTRE );

or

use Wx qw( :everything );

在今后的参考中,请包括错误信息,而不要简单地说有些事。

友情链接