Re: [PERL] HASH problem (dårlig hukommelse ;-)

[Anders Sønderberg Mortensen <sslug@sslug>]

On Mon, 4 Nov 2002, Thomas Rokamp wrote:

> Hejsa
>
> Noget i stil med :
>
> $resultat = minFunktion({param1 => "X", param2 => "Y", param3 => "Z"});
>
> sub minFunktion {
>     # Her kommer problemet så
>     # Hvordan lister jeg indholdet af parametrene?
> }
>
> Outputtet fra minFunktion skal være:
> param1 = X
> param2 = Y
> param3 = Z
>

Eftersom du af en eller anden grund vil kalde minFunktion med en anonym
hash-reference (key=>value par i {}), så kan du bruge følgende kode til at
generere det ønskede output:

sub minFunktion {
    my $href = shift;

    foreach (keys %$href) {
        print "$_ = ", $href->{$_}, "\n";
    }
}


Hilsen,

--Anders