Gibt es einen Trick bei dem ein hash value seinen hash key kennt? - #197109 (Allgemeines zu Perl)

hlubenow

2025-07-08 17:59

User since
2009-02-22
885 Artikel
BenutzerIn
[default_avatar]

Interessante Idee!
Hab' das gerade mal versucht. Ich krieg' es hin, wenn ich die Objekte als Values in einen Hash tue. Als Keys ging es nicht so gut, da bekam ich einen Fehler, den ich erstmal nicht erklären konnte.

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

package MyHash {

    sub new {
        my $classname = shift;
        my $self = {key => shift,
                    value => shift};
        return bless($self, $classname);
    }
}

my %h  = (0 => MyHash->new("a", 10),
          1 => MyHash->new("b", 20),
          2 => MyHash->new("c", 30),
          3 => MyHash->new("d", 40));
my $i;
for $i (keys(%h)) {
    print "The value of the element is \"" . $h{$i}->{value} . "\".\n";
    print "And the key is \"". $h{$i}->{key} . "\".\n\n";
}