ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Њ ЄбЁ¬ …¬Ґ«мп­®ў                     2:5020/400     03 Feb 2003  21:22:15
 To : All
 Subject : package
 -------------------------------------------------------------------------------- 
 

 Hello, perl.ru!
 
  Что-то я заблудился в 3-х соснах. Hе получается сделать сабж, чтоб не
  указывать полную спецификацию идентификатора.
 
 >test.pl:
 
 #!/usr/bin/perl -w
 
 use strict;
 use BIS qw/all/;
 
 print "const=".BIS::Const::cmode_blocked."\n"; # так работает
 print "const=".cmode_blocked."\n"; # а так нет
 
 >BIS/Const.pm:
 
 package BIS::Const;
 use strict;
 
 BEGIN {
   use Exporter();
   use vars qw/$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS/;
 
   $VERSION = 1.00;
 
   @EXPORT = ();
   %EXPORT_TAGS = (
     modes => [qw/cmode_blocked cmode_acc_state cmode_currency cmodes_all/],
     emodes => [qw/esms_regular esms_bankinfo esms_currency esms_newdoc/],
     const => [qw/modes emodes/],
     all => [qw/const/]
   );
   @EXPORT_OK = ();
 
   Exporter::export_ok_tags(keys %EXPORT_TAGS);
 }
 
 sub cmode_blocked      { 0x0001; }
 и т.д.
 
 и еще вопросы:
 1) правильно ли писать all => или нужно ':all' => (в GCI.pm
 так, в других - нет).
 2) константы лучше писать $my_const = 111;
 или sub my_const { 111; }
 3) можно ли сделать общий модуль BIS.pm, в котором use BIS::Const, use
 BIS:Subs, и т.д., так, чтобы включать только его?
 4) или мне вообще все перегнать в единственный модуль BIS.pm и не
 мучаться?
 
 -- 
 Maxim Yemelyanov,
 e-mail: maxim@enigmasoft.com.ua
 ICQ:    12253836
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Enigma Soft (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    package   Њ ЄбЁ¬ …¬Ґ«мп­®ў   03 Feb 2003 21:22:15   Re: package   Њ ЄбЁ¬ …¬Ґ«мп­®ў   03 Feb 2003 21:26:54   Re: package   Artem Chuprina   03 Feb 2003 21:46:14   Re[2]: package   Њ ЄбЁ¬ …¬Ґ«мп­®ў   03 Feb 2003 22:12:42   Re[2]: package   Њ ЄбЁ¬ …¬Ґ«мп­®ў   03 Feb 2003 22:14:16