Подскажите кто-нибудь новичку в перле, как праильно передать переменную или массив в созданный пакет. Возможно я просто не понимаю работу с переменными, глобальными и локальными...


Скажем есть пакет: LibTestPack.pm



И есть основная программа из которой отбращаюсь к пакету, делаю это так: TestPack.pl



После запуска на сервере программа выдаст local &
Хочу, чтоб выдала local & global
Кому-то вопрос покажется банальным.
Помогите мне разобраться... Спасибо.

Это сообщение отредактировал(а) cyberblade - 17.2.2012, 04:51

Может передать аргументом?
sub test_data{
    my $local_data = "local";
    print "$local_data & $_[0]\n";
}

test_data($global_data);

Спасибо добрый человек, еще встречный вопрос, а если переменная должна быть "видимой" через несколько пакетов? Допустим пакет LibTestPack использует еще один пакет, а тот в свою очаредь еще один. Для этого есть более элегантное решение? 

Это сообщение отредактировал(а) cyberblade - 17.2.2012, 05:39

Если передавать аргументом, то кол-во пакетов роли не играет.
Ну а если действительно нужна какая-то очень глобальная переменная то создаёте отдельный пакет, в нем объявляете эту переменную как our, можно опционально экспортировать её. И подключаете этот пакет везде, где нужен доступ до этой переменной.

Спасибо большое, кажется разобрался.