добраться до хеша в объекте

From

Sergey A. Shkuratov (2:5020/133)

To

yurik shestakov

Date

2005-06-17T15:24:04Z

Area

RU.PERL

Пpиветствую, yurik.

Пятница Июня 17 2005 14:58, yurik shestakov (2:5020/400) wrote to Sergey A. Shkuratov:
 SAS>> Создаю объект, имея в качестве исходных данных имя его типа.
 SAS>> Приближённо:

 SAS>> require "$typename";
 SAS>> $typename =~ s/\//::/g;
 SAS>> import $typename;

 SAS>> my $doc;
 SAS>> $doc = \$doc;
 SAS>> $doc = bless $doc, $typename;

 ys> [...]
 SAS>> Вопрос: как доступиться извне к хешу в модуле $typename.pm,
 SAS>> если объект $doc создан так, как написано выше?

 ys> Если "объект $doc создан так, как написано выше", то никакого HASH (hash
 ys> ref) не существует ;-)
Где именно не существует? В тексте модуля $typename.pm и для функций в нём же хеш вполне себе существует.

                                        WoW!
... Дом белой птицы.
---
 * Origin: Уходя - не гpусти, пpиходя - не pадуйся. (2:5020/133)
SEEN-BY: 450/208 452/25 100 454/9 455/15 461/33 74 106 640 464/34 465/204
SEEN-BY: 467/24 469/125 200 478/44 65 550/5068 4600/126 4614/9 4623/56 4625/9
SEEN-BY: 4626/100 4632/10 4635/99 1024 4641/444 4642/27 48 4657/50 5001/50
SEEN-BY: 5002/76 5002 5003/34 5010/53 146 5011/13 5015/4 28 214 5020/52 115
SEEN-BY: 5020/128 133 150 175 486 600 642 744 794 921 958 968 982 1100 1169
SEEN-BY: 5020/1212 1234 1626 1642 1653 1826 1829 1930 2044 2200 2345 2908 4400
SEEN-BY: 5020/4441 5021/2 5023/11 5024/1 73 5025/19 5030/69 195 382 436 611
SEEN-BY: 5030/920 1016 1039 1520 1688 5031/7 63 5032/11 20 5033/21 35 5034/8
SEEN-BY: 5035/38 63 5036/13 5037/21 36 5038/4 5040/33 47 5041/4 5045/7 42
SEEN-BY: 5047/47 5049/6 157 5050/9 41 5051/35 5053/16 38 5054/1 8 9 35 36 37
SEEN-BY: 5054/45 50 66 67 81 85 5055/177 5056/16 5058/77 5059/2 9 20 5060/90
SEEN-BY: 5062/4 7 5063/51 5064/7 35 5070/26 66 5071/22 5075/37 5077/70 5079/49
SEEN-BY: 5083/13 5090/23 105 5093/4 27 33 5096/18 5100/113 6023/1 6033/2727
SEEN-BY: 6070/5

PATH: 5020/133 52 5054/1 37