Re: @{$hash}

From

Nikolay Pichtin (2:5056/30)

To

Dmitry Sukhodoev

Date

2005-07-13T13:23:26Z

Area

RU.PERL

                           Добрый полдень Dmitry !

 >> Файл dat.dat
 >> 123
 >> 456
 >> 789
 >> my($new) = [];
 >> open (FILE,"dat.dat") or die ("Error:$!");
 >> @$new = <FILE>;
 >> close FILE;
 >> Как посмотреть один элемент хеша?

 DS> perldoc perlref
 DS> print($new->[0]);
 DS> print($new->[1]);
 DS> и т.д

Спасибо.

* Каждой весной неизбежно наступает тот грустный момент, когда листья на деревьях вдруг перестают удивлять.
-- Николай
----------------------------------------------------------------------
---
 * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
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 55 65 550/5004 5068 4600/126 4614/9 4623/56
SEEN-BY: 4625/9 4626/100 4632/10 4635/99 1024 4641/444 4642/27 48 4657/50
SEEN-BY: 5001/50 5002/76 5002 5003/34 5010/53 146 5011/13 5015/4 28 214
SEEN-BY: 5020/52 115 128 133 150 175 486 600 642 744 794 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/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/12 16 30 38 52 5058/77 5059/2 9
SEEN-BY: 5059/20 5060/90 5062/4 7 36 5063/51 5064/7 35 5070/26 66 5075/37
SEEN-BY: 5077/70 5079/49 5083/13 5090/23 105 5093/4 27 33 5096/18 5100/113
SEEN-BY: 6023/1 6033/2727 6070/5

PATH: 5056/30 16 5020/52 5054/1 37