algorithme |
31/03/2015 |
Le tri peut se faire sur des valeur alphanumérique ou sur des nombres.
#!/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