différents tris numériques et alphanumériques

Creation: 31 mars 2015
Mise à jour:
Version: 1.0
Author: Jean-Louis Bicquelet-Salaün
Location: http://jlbicquelet.free.fr
Copyright: (c) 2013 Jean-Louis BICQUELET-SALAÜN
sort  

algorithme

  31/03/2015

sort

Le tri peut se faire sur des valeur alphanumérique ou sur des nombres.

exemple:

#!/usr/bin/perl

@array =("John","Mary","Kate","Dylan","joe");
@array_num=(123,43,1,4,200,329,123);

@array = sort @array;
print "alphabetique trié\n @array\n\n";

@array = sort { $b cmp $a } @array;
print "alphabetique inversé\n@array\n\n";

@array = sort { lc $a cmp lc $b } @array;
print "alphabetique trié sans case\n@array\n\n";

@array = sort { lc $b cmp lc $a } @array;
print "alphabetique inversé sans case \n@array\n\n";

print "\n\n";

@array_num = sort { $a <=> $b } @array_num;
print "numerique trié\n @array_num\n\n";

@array_num = sort { $b <=> $a } @array_num;
print "numerique trié\n @array_num\n\n";


Cela donne:

alphabetique trié
 Dylan John Kate Mary joe

alphabetique inversé
joe Mary Kate John Dylan

alphabetique trié sans case
Dylan joe John Kate Mary

alphabetique inversé sans case
Mary Kate John joe Dylan



numerique trié
 1 4 43 123 123 200 329

numerique trié
 329 200 123 123 43 4 1