ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     03 Feb 2003  21:46:14
 To : Њ ЄбЁ¬ …¬Ґ«мп­®ў
 Subject : Re: package
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Максим Емельянов.
 
 МЕ> Hello, perl.ru!
 
 МЕ>  Что-то я заблудился в 3-х соснах. Hе получается сделать сабж, чтоб не
 МЕ>  указывать полную спецификацию идентификатора.
 
 МЕ> >test.pl:
 МЕ> #!/usr/bin/perl -w
 
 МЕ> use strict;
 МЕ> use BIS qw/all/;
 
 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; }
 МЕ> и т.д.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (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