|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 10 Oct 2002 07:29:05
To : Sergey Larionov
Subject : Значение переменной из пакета
--------------------------------------------------------------------------------
SL> package ComFunc;
SL> my ( $Flag);
SL> BEGIN {
SL> $Flag = '*************';
SL> };
SL> require 'ComFunc.pm';
SL> printf "ComFunc::Flag \'$ComFunc::Flag\' ";
SL> Сообщений об ошибке не выдается, но печатаеся :
SL> ComFunc::Flag ''
SL> Куда делось значение переменной ?
Да, действительно, куда делось? "Она схватила его за руку и неоднократно
спросила, где он девал деньги".
SL> Пробовал окружить переменные и
SL> подпрограммы в пакете скобками блока {}, как это рекомендовано в
SL> (С.Холзнер "Perl - специальный справочник" стр 177) .
SL> Результат тот же...
"Я и яркость громче делала..."? :-) Ты бы лучше штатную доку читал.
my убери. my ( $Flag); которая.
perldoc -f my
ну и за компанию
perldoc vars
perldoc -f our
Кстати, бекслеши перед ' совершенно необязательны, и вместо require обычно
лучше использовать use. И, к слову сказать, было бы хорошо завершить package
строчкой
1;
perldoc -f require, perldoc -f use
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Значение переменной из пакета 