#Quelques exemples de TRI en PERL
# Juan Manuel Torres juan-manuel.torres@univ-avignon.fr

#----------------------------------------------------
# Tri des tableaux simples
    # Tri lexicographique
    # @out vaut maintenant (a,e,r,t,y,z)

 @lettres = qw( a z e r t y );
    @out = sort @lettres;

    # ici, on trie en ordre numérique avec une fonction par_num

   sub par_num { return $a <=> $b }

    @out = sort par_num @in;

    
    # ici, on trie en ordre numérique inversé
    # (remarquez l'ordre de $a et $b)

    @out = sort { $b <=> $a } @in;
#----------------------------------------------------
# Tri d'un tyableau associatif


@keys=sort keys %hash; # nouveau tableau avec les clefs triees
foreach  $clef (@keys) {
  print "$clef => " .  ($hash{$clef})  . "\n";
}