[Perl] Инициализация переменных

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Podedinov
мл. сержант
Сообщения: 84
Зарегистрирован: 2008-12-28 11:50:19

[Perl] Инициализация переменных

Непрочитанное сообщение Podedinov » 2012-07-12 9:09:36

Здравствуйте, есть 3 файла:

test.pl

Код: Выделить всё

#!/usr/bin/perl

use strict;
use warnings;

use config;
use library;

print $asd;

test();
library.pm

Код: Выделить всё

#!/usr/bin/perl

package library;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT      = qw(test);
our @EXPORT_OK   = qw(test);
our %EXPORT_TAGS = (
    a => [qw(test)],
    b => [qw(test)],
);

sub test {
  print "MyLib - Test Ok!\n";
}

1;
config.pm

Код: Выделить всё

#!/usr/bin/perl

package config;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT = qw($asd);

my $asd = 555;

1;
Но выдает такую ошибку:

Код: Выделить всё

./test.pl
Use of uninitialized value $asd in print at ./test.pl line 9.
MyLib - Test Ok!
Не подскажите как передать значение переменной $asd

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
hizel
дядя поня
Сообщения: 9031
Зарегистрирован: 2007-06-29 10:05:02
Откуда: Выборг

Re: [Perl] Инициализация переменных

Непрочитанное сообщение hizel » 2012-07-12 9:27:28

Код: Выделить всё

-my $asd = 555;
+our $asd = 555;
например
В дурацкие игры он не играет. Он просто жуткий, чу-чу, паровозик, и зовут его Блейн. Блейн --- это Боль.