Можно ли получить переменную, определенную в файле perl, в файл pm?

Question

test.pm

package test;
use Exporter;

our @ISA=qw(Exporter);
@EXPORT=qw(version);

sub show(){
 print $var;
}
sub version()
{
        $out=`uname`;
        return $out;
}

test.pl

#!/usr/bin/perl

BEGIN{
use lib qw(./Module);
}
use test;

our $var="what to print?";
$out=version();
print $out;

Вывод:

Linux

print $var; //prints nothing, Can pass variable in both ways

Я думал $varбудет глобальным и может быть видно там же.Если я рассматриваю пакет, он все еще не доступен как $main::var в тесте пакета

Подскажите, пожалуйста, почему?

Answer 1

Обычно вы передаете данные в качестве параметра функции модуля.

в test.pm:

sub show {
    my $var = shift;
    print $var;
}

в test.pl:

use test;

show('test123');

это напечатало бы test123.