hash wird gelöscht/überschrieben(foreach und hash): warum wird hash gelöscht?!! - #33256 (Datenbanken und Verzeichnisdienste)

Ronnie

2006-08-18 14:16

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Wie renee oben schon gezeigt hat überschreibst du so nur den hash jedesmal. Verwende eine Referenz auf den Hash den du an die Funktion übergibst und spar dir die Zuweisung. Ein Beispiel:

Code: (dl )

#!usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hash;
my $i;

fill_hash(\%hash);      # add some data
print Dumper \%hash;    # dump it
fill_hash(\%hash);      # add more data
print Dumper \%hash;    # dump it again
exit;

sub fill_hash {
    my $hash_ref = shift || {};
    $hash_ref->{$i} = ord(++$i) for 1..4;
}