array sortieren nach vorgabe - #81974 (Allgemeines zu Perl)

format_c

2004-05-04 15:44

User since
2003-08-04
1706 Artikel
HausmeisterIn

MMh also da finde ich nach deiner Aufgabenstellung finde ich renee's ansatz schon garnet so so schlecht.

aber ich würde die Aufgabe so wie ich sie verstehe mit folgendem Ansatz lösen:

Code: (dl )

C:\>perl
my @array = qw/a b d/;
my %hash = qw/a 0 b 3 d 1/;
local $, = ',';
print sort { $hash{$b} <=> $hash{$a} } @array;
_ _END_ _
b,d,a
C:\>

Gruß Alex\n\n

Effizente Linuxshell