Как экспортировать символ пакета в пространство имен в Perl?

Question

У меня проблемы с пониманием того, как экспортировать символ пакета в пространство имен. Я почти одинаково следил за документацией, но, похоже, он не знает ни об одном из экспортирующих символов.

mod.pm

#!/usr/bin/perl

package mod;

use strict;
use warnings;

require Exporter;

@ISA = qw(Exporter);
@EXPORT=qw($a);


our $a=(1);

1;

test.pl

$ cat test.pl
#!/usr/bin/perl

use mod;

print($a);

Это результат запуска

$ ./test.pl
Global symbol "@ISA" requires explicit package name at mod.pm line 10.
Global symbol "@EXPORT" requires explicit package name at mod.pm line 11.
Compilation failed in require at ./test.pl line 3.
BEGIN failed--compilation aborted at ./test.pl line 3.

$ perl -version
This is perl, v5.8.4 built for sun4-solaris-64int

Answer 1

Это не говорит о том, что у вас возникли проблемы с экспортом $a. Он говорит вам, что у вас есть проблема с объявлением @ISA и @EXPORT. @ISA и @EXPORT являются переменными пакета и в strict они должны быть объявлены с ключевым словом our (или импортированы из других модулей - но это вряд ли с этими двумя). Они семантически отличаются - но не отличаются функционально - от $a.

Няня ПРИМЕЧАНИЕ: @EXPORT не считается вежливым. Через Exporter он сбрасывает свои символы в используемом пакете. Скорее всего, если вы считаете, что что-то хорошее для экспорта - а это - - тогда для пользователя будет стоить запросить это. Вместо этого используйте @EXPORT_OK.

Answer 2

Попробуйте это:

package mod;                # Package name same as module.

use strict;
use warnings;

use base qw(Exporter);

our @ISA    = qw(Exporter); # Use our.
our @EXPORT = qw($z);       # Use our. Also $a is a bad variable name
                            # because of its special role for sort().

our $z = 1;

1;

Answer 3

Другие правильно определили проблему и предложили решения. Я подумал, что было бы полезно указать на подсказку по отладке. Чтобы изолировать проблему с данным файлом, вы можете попытаться скомпилировать только этот файл, используя perl -c (см. perlrun ):

perl -c mod.pm

Это привело бы к тому же сообщению об ошибке, которое привело бы вас к пониманию, что проблема в вашем файле .pm, а не в файле .pl.