[Munich-pm] Hash mit Hash verschmelzen

[Stefan Bauer]

Hallo Robin,

Danke - hat prima geklappt!

Stefan

----- Ursprüngliche Nachricht -----
Von: Robin Clarke <robin at robinclarke.net>
Gesendet: Donnerstag, 12. Januar 2012 09:39
An: Stefan Bauer <stefan.bauer at cubewerk.de>
Cc: munich-pm at pm.org
Betreff: Re: [Munich-pm] Hash mit Hash verschmelzen

my @a = qw/ 089 030 040 089 030 040 040/;

my %hash;
$hash{$_}++ for @a;

my %areacode = (
"089"   =>      "Muenchen",
"030"   =>      "Berlin",
"040"   =>      "Hamburg",
);

printf( "%s\n", join "\n", map{ "$_ $hash{$_} mal ($areacode{$_})"
}sort{ $hash{$b} <=> $hash{$a} }keys %hash );


Best winds,
-Robin-

On 12/01/12 09:28, Stefan Bauer wrote:
> Hallo Mongers,
>
> ich stehe vor dem Problem, bei einer Ausgabe ein Hash mit einem Hash zu verschmelzen. Jedoch bin ich weit entfernt davon, mir einen Reim zu machen und bitte euch um Hilfe:
>
> @a = qw/ 089 030 040 089 030 040 040/;
>
> my %hash;
> $hash{$_}++ for @a;
>
> my @sortiert = map{ "$_ $hash{$_} mal" }sort{ $hash{$b} <=> $hash{$a} }keys %hash;
> print join "\n", @sortiert;
>
>
> %areacode = (
> "089"   =>      "Muenchen",
> "030"   =>      "Berlin",
> "040"   =>      "Hamburg",
> );
>
>
> Das Hash mit den Areacodes soll also in der print-Ausgabe integriert werden.
>
> Derzeit erhalte ich:
>
> 040 3mal
> 030 2mal
> 089 2mal
>
> Ich hätte jedoch gerne hinter der Nummer in Klammern noch den passenden Ort aus dem areacode-Hash.
>
>
> Danke im Voraus
>
>
> Stefan
> _______________________________________________
> Munich-pm mailing list http://munich.pm.org/
> Munich-pm at pm.org
> http://mail.pm.org/mailman/listinfo/munich-pm

-- 
Best winds,
-Robin-
~:)

# My Github repository with mostly perl code
# https://github.com/robin13