🚀 go-pugleaf

W dniu 11.03.2011 11:47, Stachu 'Dozzie' K. pisze:
> perldoc perllol.

qrde, jakoś w tym perldocu nie mogę wszystkiego znaleźć. Oczywiście już 
wiem jak dobrać się do poszczególnych wartości w referencjach ale za 
chorobę nie widzę przykładu jak użyć foreach na referencji.
Pomijając przykład z bazą, do testu zrobiłem takie dane:

#v+
@tab = ('ala','ma','kota','krzys','lubi','puchatka');
print "tablica \@tab ma wartosc\n", Dumper(@tab),"\n";
print "="x20,"\n";

$ref_tab = \@tab;
print "referencja do tablicy \@tab ma wartosci:\n",Dumper($ref_tab);
print "="x20,"\n";


print "Druga wartość w referncji to: $$ref_tab[2]\n";
print "="x20,"\n";
#v-

to mi printuje:

#v+
./tablice.pl
tablica @tab ma wartosc
$VAR1 = 'ala';
$VAR2 = 'ma';
$VAR3 = 'kota';
$VAR4 = 'krzys';
$VAR5 = 'lubi';
$VAR6 = 'puchatka';

====================
referencja do tablicy @tab ma wartosci:
$VAR1 = [
           'ala',
           'ma',
           'kota',
           'krzys',
           'lubi',
           'puchatka'
         ];
====================
Druga wartość w referncji to: kota
#v-

znaczy się, że ok. ale jak mogę wylistować wszystkie wartości z referencji?
z tablicy to łatwo
#v+
foreach (@tab) {
print;
}
#v+

ale jak zamiast @tab uzyje $ref_tab to foreach zwraca mi tablice.

#v+
foreach ($ref_tab)
{
print;
};
#v-

printuje mi:

#v+
ARRAY(0x8b27c10)
#v-

jak dostać się do danych z referencji w pętlach?