Hi Rolf,

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

Das meinte Andy nicht ;-)
Er meinte eher sowas wie

=cut
#!/usr/bin/perl

sort by own list

@xlist = qw(Áber Bisher Çlappts Doch);
@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 = (
  "À",0,
  "B",1,
  "Ç",2,
  "D",3
 );

return $ownlist{$v};
}
=cut

Das geht dann natuerlich nicht so. Bei der Liste muss solange jedes Zeichen der Strings verglichen werden, bis
eindeutig fest steht, welcher String zuerst kommt.

Gruss,
 Christian
 http://wwwtech.de