🚀 go-pugleaf

On Wed, 30 Dec 2009 04:23:25 +0100, gtbike@o2.pl wrote:

> On Fri, 25 Dec 2009 12:47:11 +0000 (UTC), Adam Osuchowski
> <someone@somewhere.com> wrote:

>>#v+
>>my %tab1;
>>while (<>)
>>{
>>  chomp;
>>  my ($numer, $nazwisko, $kod) = split / /;
>>  $tab1{$numer} = { nazwisko => $nazwisko, kod => $kod };
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>>}
>>#v-


> while( my ($numer, $kod) = each %tab1 ) {
>         print "numer: $numer, kod: $kod.\n";
>     }

No i tak się kończy korzystanie z gotowca, którego się nie rozumie. 
Elementami hasha %tab1 są - patrz linia, którą podkreśliłem - referencje do
hashy. A nie same kody. Więc "each %tab1" zwraca pary złożone z klucza
(którym jest numer) i - tadam! - referencji do hasha, który zawiera pola
"kod" i "nazwisko". Powinieneś był zrobić coś w stylu:

while( my ($numer, $wartosc) = each %tab1 ) {
        my $kod = $wartosc->{kod};
        print "numer: $numer, kod: $kod.\n";
}

lub alternatywnie:

foreach my $numer (keys %tab1) {
   printf "numer: %s, kod: %s.\n", $numer, $tab1{$numer}{$kod};
}

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H