Sortierung von ungarischen Vokalen

[RoRo]

Hi André, frisch aus dem Labor ---->

=test it!

sort by own list

@xlist = qw(A A I Í B C D E Á É);

@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 = qw(A Á B C D E É F G H I Í); # legt die Reihenfolge fest...
 for( $i = 0; $i <= scalar (@ownlist); $i++ ){
  if ($v eq $ownlist[$i]){return $i}
 }
}

=eof
; Rolf