1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $ref = { sig => \%SIG, }; my $clone = $ref; # Kopie der Referenz??? $clone = {}; # erwarte {} in $ref ... print Dumper $ref; # Denkste! Alles noch da! # Besser machen: $clone = \$ref; # Jetzt haben wir die richtige Kopie!!! $$clone = {}; # und können den Inhalt des Original ändern print Dumper $ref; # as expected