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

From

Sergey A. Shkuratov (2:5020/133)

To

Konstantin Tokar

Date

2005-06-17T15:14:18Z

Area

RU.PERL

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

Пятница Июня 17 2005 14:08, Konstantin Tokar (2:5020/400) wrote to Sergey A. Shkuratov:
 >> Создаю объект, имея в качестве исходных данных имя его типа. Приближённо:
 >>
 >> require "$typename";
 >> $typename =~ s/\//::/g;
 >> import $typename;
 >>
 >> my $doc;
 >> $doc = \$doc;
 >> $doc = bless $doc, $typename;
 KT> Я думал, что более-менее знаю перл. Но из этого постинга не понял
 KT> практически ничего.
Имея имя типа, я создаю объект $doc этого типа. Судя по тому, что затем я вполне успешно вызываю методы объекта, создаю я его верно. Затем мне нужно получить как минимум доступ к хешу свойств объекта, если объект его определил. Если же объект его не определил, то ничего не делать.


                                        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