%{$eingabe} zur Laufzeit erzeugen: Hash mit benutzerdefiniertem Bezeichner - #63113 (Allgemeines zu Perl)

pearl-man

2006-02-21 13:58

User since
2005-07-25
65 Artikel
BenutzerIn
[default_avatar]

weiteres Problem, wenn ich die keys in n array hau, wird nur das letzte hash-paar übergeben:

Code: (dl )

 @temp = keys %{$base{'neu'}};

die hash-paare wurden zuvor wie folgt dem hash hinzugefügt:

Code: (dl )

$hash = 'neu';
 @line = split(';;', $_);
                        print "One: $line[0], Two: $line[1]\n";
                        chomp($line[0]); chomp($line[1]);
                        if ( defined($line[1]) ) {
                                print "Adding to Base($hash): $line[0] mit $line[1]\n";
                                $base{$hash} = {$line[0] => $line[1]};
                        } else {
                                $base{$hash} = {$line[0] => 0};
                        }