#!/usr/bin/perl my %hash; # hash deklarieren #Werte einlesen while () { my $key = $_; print "Wert: "; my $wert = ; $hash{$key} = $wert; } #sortieren sub nach_key_wert { "\L$hash{$a}" cmp "\L$hash{$b}" or "\L$a" cmp "\L$b" } @meine_keys = sort nach_key_wert %hash; #Reihenfolge ausgeben foreach (@meine_keys) { print "Schlüssel: $_ hat Wert $hash{$_}\n"; }

TOP Contact me