versch. glob. hash mit Unterfunktion verändern

[Rolf Rost]

Hallo liebe Forumer und PERL Freunde,

hab einen oder mehrer globale hashes in einem PERL Script.
Möchte nun, die Werte mit einer Unterfunktion verändern like this:

my %name = (1, "Rolf");
print "$name{1}\n";

crash(%name, 1, 'Erwin'); # die Unterfunktion
print "$name{1}\n";

nun soll der name in einer Unterfunktion verändert werden

uebergeben wir der sub eine reference auf den hash, der key und der value

sub crash{
 my ($ref, $key, $val) = @_;
 # was muss hier stehen ??
}

Die sub muss also den globalen hash verändern, ggf. muss ich der sub sagen können, um welchen globalen hash es sich handelt.

Q: Wie machen ??

Gruss, Rolf

[Christian Kruse]

Hallo Rolf,

nun soll der name in einer Unterfunktion verändert werden

uebergeben wir der sub eine reference auf den hash, der key und

der value

sub crash{
my ($ref, $key, $val) = @_;

was muss hier stehen ??

}

Was ist das denn fuer eine Frage?

$ref->{$key} = $value;

perldoc perlref

Grüße,
 CK

[Rolf Rost]

Hallo Christian,

Was ist das denn fuer eine Frage?

sorry, war'n langer Tag heute.

$ref->{$key} = $value;

Vielen Dank!

Gruss, Rolf