ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Bolotnov                   2:5052/4.82    01 Dec 2001  22:19:24
 To : All
 Subject : Exporter
 -------------------------------------------------------------------------------- 
 

 
 Есть у меня прога и придумалось мне хранить кучу переменных в отдельном файле.
 вообщем, как бы понятно, как это реализовать...
 
 package Some;
 use Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw($var);
 
 $var = 100;
 
 ---
 
 use Some;
 use strict;
 print $var;
 
 --- не ругается, всем хорошо, всем круто. теперь решили задачу усложнить
 немнжко... хочется, чтобы конфиги хранились типа вот такой штуки:
 
 package Some;
 #exporter crap
 
 package REG;
 $reg = 100;
 $num = 56;
 
 package FUR;
 $reg = 130;
 $num = 34;
 
 или между sub{}, не критично...
 так чтобы можно было делать
 
 use Some qw/:FUR/;
 и эти переменные импортировались...
 
 все круто, но читая perldoc Exporter я не допер, как это реализовать...
 и да... если перечислять все переменные в EXPORTER_OK = qw(..), то выходит
 как-то очень мыторно... этого бы избежать...
 
 Alexander Bolotnov.
 http://doffi.gcinet.net
 
 ---
  * Origin: Тех, кто знает много - мало, кто мало - много... (2:5052/4.82)
 
 

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

Тема:    Автор:    Дата:    Exporter   Alexander Bolotnov   01 Dec 2001 22:19:24   Re: Exporter   Ilia Vinokurov   02 Dec 2001 00:28:36   Exporter   Alexander Bolotnov   02 Dec 2001 12:01:04   Re: Exporter   Slavka Gorbanev   03 Dec 2001 12:52:27