ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Larionov 2:5020/400 10 Oct 2002 07:04:43
To : All
Subject : Значение переменной из пакета
--------------------------------------------------------------------------------
Привет всем !
Есть пакет, приблизительно такой :
package ComFunc;
my ( $Flag);
BEGIN {
$Flag = '*************';
};
Этот пакет используется в главном скрипте :
require 'ComFunc.pm';
printf "ComFunc::Flag \'$ComFunc::Flag\' ";
Сообщений об ошибке не выдается, но печатаеся :
ComFunc::Flag ''
Куда делось значение переменной ? Пробовал окружить переменные и
подпрограммы в пакете скобками блока {}, как это рекомендовано в
(С.Холзнер "Perl - специальный справочник" стр 177) .
Результат тот же...
Сергей Ларионов
--- ifmail v.2.15dev5
* Origin: Tomsktelecom - Digital Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
