ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serg Chervjakov                      2:5020/400     07 Jul 2003  13:16:20
 To : Ilia Vinokurov
 Subject : Глобальная переменная
 -------------------------------------------------------------------------------- 
 

 Mon Jul 07 2003 12:25, Ilia Vinokurov wrote to All:
 
  IV> Возникла потребность создать глобальный хэш, (как %ENV),
  IV> который должен быть доступен в любом пакете, подключаемом в модуле
  IV> main.
  IV> Вопрос только один - как этот хэш объявить ?
 
 - ---scr.pl---
 $perem='ttt';
 use scr;
 $t=scr->new();
 
 $t->try();
 
 -end-scr.pl---
 
 - ---scr.pm---
 package scr;
 
 sub new
 {
  my $class=$_[0];
  my $object={};
  bless($object,$class);
  return $object;
 }
 
 sub try
 {
  print $main::perem;
 }
 
 1;
 -end-scr.pm---
 
 Это?
 
  Вот только один вопрос - зачем создавать отдельный пакет, когда он будет
 зависеть от переменных в скрипте? IMHO внутренности пакета не должны зависеть
 от внутренностей скриптов, которые будут его юзать. IMHO в твоем случае,
 удобнее было бы использовать конструкцию: require 'lib.pl'. Все глобальные
 переменные в скрипте, будут доступны из lib.pl, как если бы они были
 глобальными в lib.pl. Hо это все лишь IMHO. Каждый пишет так, как ему удобнее.
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (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