Assoziatives Array in einen String umwandel

[Philipp Hasenfratz]

Halihallo Gandalf

Hilfe Hilfe

ersetze dies durch eine gültige Anrede. Danke.

my %alter = ("Waschmaschine","5","Sterioanlage","4","Stuhl","2","Tisch","3");
my  %alt = %alter;

Warum kopierst du den Hash?

my @keys =sort {$alt{$a} cmp $alt{$b}} keys %alt;
foreach (@keys) {print "$_ je $alt{$_} Haeuser\n "};
Wie kann ich print ersetzen durch ein Array und dann abfragen

Wieso print ersetzen? - Durch was willst du es ersetzt haben?
Du möchtest aus dem Hash (assoziatives Array) ein String erstellen?

my $str = '';
my @keys = sort {$alt{$a} cmp $alt{$b}} keys %alt;
foreach (@keys) {$str .= "$_ je $alt{$_} Haeuser,"};
chop $str;   # letztes Zeichen (hier ein Komma) weg.

Viele Grüsse

Philipp