Zweite Antwort mit mehr Bezug auf Deinen Beitrag:

Guest Andi123

Ich möchte u.a. einen Hash an ein Sub übergeben. In der Sub will ich den Inhalt von %content nur lesen, nicht ändern.

$returnValue = doSub($key, \%content);

Weder mit

Code (perl): (dl )

1
2
3
4
5

sub doSub {
        my $key = shift;
        my %content = shift;
        ...
}

noch mit

Code (perl): (dl )

1
2
3
4

sub doSub {
        my ($key, %content) = @_;
        ...
}

komme ich an %content ran.

Du übergibst ja auch nur eine Referenz auf den Hash. Anscheinend hast Du auch keine Warnungen use warnings; eingeschaltet. Denn mit Warnungen solltest Du eine entsprechende erhalten, dass die Hash-Zuweisung eine ungerade Anzahl an Elementen enthält.
perlfunc shift holt nur ein Element ab, in diesem Fall die Referenz auf den Hash.
Beim zweiten Versuch wird die gesamte Liste der Argumente übergeben; da aber nur zwei da sind, landet im Hash wieder nur ein Element, die Referenz auf den originalen Hash.

Also entweder:


oder

benutzen.