ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ilia Vinokurov                       2:5020/400     08 Jul 2003  13:54:42
 To : Ilia Vinokurov
 Subject : Re: Глобальная переменная
 -------------------------------------------------------------------------------- 
 

 > Возникла потребность создать глобальный хэш, (как %ENV),
 > который должен быть доступен в любом пакете, подключаемом в модуле
 > main.
 > Вопрос только один - как этот хэш объявить ?
 >
 > Как объявить переменную, экспортируемую в модуль main я знаю, а как
 
 создать
 
 > переменную, экспортируемую из модуля main в другой подключаемый модуль
 > хочу спросить у вас.
 
 Временное решение примерно такое:
 
 ========= файл main.pl ============
 #!/usr/bin/perl
 
 use m1;
 use m2;
 
 while( my( $k, $v ) = each %m1::VR ){
   print "$k -> $v\n";
 };
 ----------------------------------------------
 
 ========= file m1.pm ==============
 package m1;
 %VR = ();
 # Экспорт %VR в примере не приведен.
 $VR{'m1'} = 'tr';
 ----------------------------------------------
 
 ========= file m2.pm ==============
 package m2;
 package m1;
 
 $VR{'m2'} = 'tr2';
 ----------------------------------------------
 
 Кто предложит вариант более ХМУТРЫЙ ?
 
 С уважением,
                     Илья Винокуров.
 --- ifmail v.2.15dev5
  * Origin: Comcor (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Глобальная переменная   Ilia Vinokurov   07 Jul 2003 12:25:50   Глобальная переменная   Serg Chervjakov   07 Jul 2003 13:16:20   Re: Глобальная переменная   Ilia Vinokurov   08 Jul 2003 13:54:42