Здравствуйте! Подскажите как объявить переменную глобальной и получить к ней доступ в другом модуле? В обработчике ticket.pl я формирую массив,а в другом обработчике all_zakaz.pl мне нужно получить к ней доступ.
our @arr; // не помогает..
Здравствуйте! Подскажите как объявить переменную глобальной и получить к ней доступ в другом модуле? В обработчике ticket.pl я формирую массив,а в другом обработчике all_zakaz.pl мне нужно получить к ней доступ.
our @arr; // не помогает..
В Perl нет такого понятия как глобальная переменная - в нём каждая переменная принадлежит пакету, в котором она объявлена (или даже блоку, если это лексическая переменная). Если переменная объявлена при помощи my
, к ней нельзя обращаться из других пакетов, если при помощи our
- можно обращаться по полному имени (с указанием пакета). То есть в вашем случае это будет:
package MyModule;
our @numbers = 1 .. 3;
1;
# В другом файле:
use MyModule;
print join ', ', @MyModule::numbers;
Также переменные и функции можно экспортировать из других пакетов в текущий при помощи модуля Exporter (или других), чтобы обращаться к ним по короткому имени без указания пакета:
package MyModule;
use Exporter;
use base 'Exporter';
our @EXPORT_OK = qw(@numbers);
our @numbers = 4 .. 6;
1;
# В другом файле:
use MyModule qw(@numbers);
print join ', ', @numbers;
Посмотрите как сделано: How to share/export a global variable between two different perl scripts?
Может быть старый и простой метод:
package A;
our $array = [qw/11 22 33/];
package B;
use A;
say $A::array->[0];#output: 11
require
-ит другой, или это отдельные скрипты?