Tri d'un tableau 2D sans la fonction sort

**mamax29** · 23/03/2011, 09h45

Bonjour,

Je cherche un petit coup de main pour m'aider à trier un tableau 2D selon la "3ème" colonne (l'heure) sans utiliser un seul module perl.

mon tableau est sous la forme:

Nom Date heure
toto 23/03/2011 12:44:34
tata 23/03/2011 12:44:56
totu 23/03/2011 12:43:23
titi 23/03/2011 12:45:01
...

j'ai à ma disposition une fonction permettant de faire un comparaison de l'heure nommé compare_nmc_date()

**Philou67430** · 23/03/2011, 10h24

J'ai donné un élément de réponse ici, en utilisant la transformée Schwarzienne.

A noter au passage que la fonction sort est native en perl, elle ne fait appel à aucun module (ni du CPAN, ni du Core).

**mamax29** · 23/03/2011, 14h30

Merci Philou67430,

Je vais regarder cela.
Pour le sort j'y ai même songé étant donné l'age du perl installé sur la machine que je doit utiliser (perl 5.005)

Mais en fait cela semble fonctionner, donc je vais faire cela.

Merci

**mamax29** · 23/03/2011, 16h54

Trouvé,

La fonction sort fonctionne nickel.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
@result = sort { $a->[2] <=> $b->[2] } @result
 
print "NE\tDate\tHeure\n";
for (my $i=0; $i<$size; $i++)
{
    print $result[$i][0]."\t".$result[$i][1]."\t".$result[$i][2]."\n";
}