Hash Values als ARRAY / Andere Möglichkeit - #127348 (Allgemeines zu Perl)

PETER_PAN2009

2009-10-27 12:31

User since
2009-08-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen!
Ich habe ein Array, welches folgendermaßen aufgebaut ist:

Code (perl): (dl )

my @arr = (xx1111y000, xx1111y001, xx1111y002, xx2222y000, xx2222y001);

Jetzt möchte ich ganz gerne den ersten Part (xx1111 oder xx2222) als Key und den Rest(y000, y001 usw.) als Value in einem Hash speichern.

Code (perl): (dl )

my %hash = ();
foreach my $x(@arr)
{
        if ($x =~ m/(\w{6})(\w{4})/) #($1 = ersten 6 Zeichen / $2 = restliche 4)
        {
          $hash{$1} = $2;
          }
}

Jetzt habe ich im Hash die Keys stehen, die Values werden aber überschrieben. Kann ich einem Value ein Array zuweisen?

Die Ausgabe der Keys ist richtig:

Code (perl): (dl )

foreach (sort keys %hash)
{
        print qq{<li><a href="$_">$_</a></li>\n};
}

Meine Ausgabe soll danach folgendermaßen aussehen:
xx1111 --> y000, y001, y002
xx2222 --> y000, y001

Hat jemand ne Idee??
DANKE und Gruß