Perl - Hashmap

Impressum | Werbung

Geizhals » Forum » Programmierung »

Perl - Hashmap (9 Beiträge, 57 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

indem du dem hashkey nicht das array sondern referenz auf das array zuweist.

$hash{key} = \@array;

oder anonym

$hash{key} = [ 1 , 2 , 3 ];

zugriff auf ein einzelnes array element erfolgt dann in einfachen faellen recht logisch:

my $foo = $hash{key}[2];

in komplizierteren faellen ist das dann leider oft nicht mehr so einfach.

perlrefs zu lernen ist ausgesprochen lohnend (und fuer fortgeschrittene programmierung unerlaesslich).

mehr dazu in

# perldoc perlreftut

fuer arbeiten mit refs uebrigens immer

use strict;

verwenden, um die wahrscheinlichkeit, sich selbst in den den fuss zu schiessen, zu minimieren.

er hats jetzt mit $hash{key} = [@array];print "@{$hash{key}}; gelöst, das kanns aber nicht sein, oder *G*?

das ist eigentlich nichts anderes als das, was ich geschrieben habe... in perl gibt's da ein paar syntaxvarianten.

wie er da auf einen pseudo hash kommt entzieht sich mir im moment... ist das vielleicht eine alte perl version (# perl -v)?

hm, versteh ich nicht... eventuell irgendwo verschrieben?

ich hab da für anfänger immer mein girlfriend.pl ... jeder typ hat mehrere girlfriends
(typ = hash key / girlfriend = array values )

hope that helps

den rest hat eh schon japh explained

---

#!/usr/local/bin/perl -w

use strict;

my %girlfriends;
# initiates the hash that will have the guyname as key and the
#girlfriends names as values ...

my @ruetzisgirlfriends = qw (resi moni sissi dumpfi);
# initiates and fills the array with the names of the girlfriends
my @camelsgirlfriends = qw (tussi girl sexyhexy);
# initiates and fills the array with the names of the girlfriends

my $guyname = 'ruetzi';
# initiates the $guyname and sets it to 'ruetzi' ... that will be one key in the
# %girlfriends hash and that key will have multiple values in an 'anonymous' array
# in it ... i.e. $girlfriends{'ruetzi'} will not have one value like a normal array
# but will hold an array which then holds the girlfriends names

foreach my $freundin ( @ruetzisgirlfriends ) {
push(@{$girlfriends{$guyname}},$freundin);
}

# goes through each of the girlfriends assigned to @ruetzisgirlfriends
# assings the current value to $freundin which will then get pushed into
# the array that lays within $girlfriends{'ruetzi'} ... so someone could
# describe it like $girlfriends{$guyname} points to [girl1 girl2 girl3] ...
# note: the array has no name ... its called "anonymous array"

$guyname = 'camel';
foreach my $freundin ( @ruetzisgirlfriends ) {
push(@{$girlfriends{$guyname}},$freundin);
}

# same for camel ... now the $guyname is camel ... the second key is filled with
# girls or better - the array that is associated with the camel key is filled with girls ...

foreach my $tmpguyname ( sort keys %girlfriends ) {
print  $tmpguyname . ' has the following girlfriends: ' . "\n";
  foreach my $tmpgirlfriend ( sort @{$girlfriends{$tmpguyname}} ) {
   print "\t" . $tmpgirlfriend . "\n";
  }
}

# loop though each key in %girlfriends ... so we get all the guynames out of the hash
# ... ( sort just sorts the keys alphabetically ... you could also leave sort out ...
# so we get one key after another and we then use that keys that are camel or ruetzi or
# any other value to loop through the arrays that are associated with those keys in
# the second forach ( we sort the array values too ... so we get a nice list of girlfriends
# names ...

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung