Moin Rolf,

hi too! moin ;-)

Aber bei naeherem Hinsehen gibts da ein Problem: du sortierst einzelne Zeichen, bei ganzen Strings versagt das leider ;(
ich fuerchte, es ist nicht ganz so einfach.

n.d. fürchte dich nicht :)

&roro funktioniert auch mit Strings!
 see here:

=cut
#!/usr/bin/perl

sort by own list

@xlist = qw(DYZ DEE DYZ DAA DXL DDE DXL DAA);

@xay = sort { roro($a) <=> roro($b) } @xlist;

for (@xay){print "$_\n"}
##########################################################################

RoRo Translation Function, sort by own list :)

sub roro{
 my $v = shift;
 my %ownlist = (
  "DAA",0,
  "DDE",1,
  "DEE",2,
  "DXL",3,
  "DYZ",4
 );
 return $ownlist{$v};
}
=cut

Ich stelle mir ein allgemeines Modul vor, auf das man Sprachspezifiken aufsetzen kann (vorzugsweise das ganze UTF-8 encoded ;-)
Also sowas wie 'Sort::Locale'. Dazu kann man dann 'Sort::Locale::Hungarian', 'Sort::Locale::German' usw. schreiben, welche die Reihenfolge vordefinieren. Im CPAN habe ich gerade das Modul No::Sort von Gisle Aas gefunden, dass norwegisch sortiert. Das benutzt noch einen anderen Ansatz (soweit ich das beim Ueberfliegen des Codes mitbekommen habe)

Ich finde, das waere sogar was fuers CPAN ;-)

Cool !

Herzliche Grüße aus Linkenheim (Baden) ; Rolf