#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 tableau associatif par clés

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

#----------------------------------------------------
# Tri d'un tableau associatif par valeurs	

my %hash = (
	K1 => 2,
	K2 => 3,
	K3 => 8,
	K4 => 3,
	K5 => 7,
	K6 => 0,
);
  
foreach my $k ( sort ({ $hash{$a} <=> $hash{$b} } keys %hash)){
	print "$k\t$hash{$k}\n";
}