Tri multiple dans une table

Bonjour,

je souhaite réaliser une tri multiple dans une table.
Je m'explique:
j'ai une table
@table qui contient
$table[0] # nom
$table[1] # date
$table[2] # heure
et je souhaite faire un tri d'abord sur la date puis l'heure et enfin le nom.

Le but de ce tri est de créer un tableau excel dans lequel le tri est déjà réalisé et imprimable sans manip.

J'ai essayé avec sort, sans succès.

Connaitriez vous le moyens de réaliser ce tri?

Merci

Stephane

A l'aide de la fonction sort, tu peux fournir un comparateur d'éléments (une référence à une fonction qui accepte deux paramètres $a et $b.

En supposant que @table soit une table de références de table (à trois éléments comme tu l'indiques) :
Code:

1 2 3 4 my @table = (["toto", "2014/08/25", "10:20"], ["titi", "2013/01/23", "20:22"], ["tutu", "2010/03/31", "09:20"]); @table = sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } @table;
Si la table est sous forme de chaine dont les colonnes sont séparées par des espaces (par exemple), on peut utilisée la transformée Schwartzienne :
Code:

1 2 3 4 my @table = ("toto 2014/08/25 10:20", "titi 2013/01/23 20:22", "tutu 2010/03/31 09:20"); @table = map { joint " ", @$_ } sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } map { [ split /\s+/, $_ ] } @table;

J'ajoute à la réponse de Philou qu'il faut naturellement que les dates soient dans un format de type AAAA-MM-JJ ou AAAA/MM/JJ ou AAAMMJJ, bref année en premier, puis mois, puis jour.

Sinon, il faut faire un peu de manipulations de données supplémentaires.

Un petit lien sur les tris: http://laurent-rosenfeld.developpez....urs-listes/#L3

J'ai également oublié de mettre le lien vers la "transformée Schwartzienne" : http://articles.mongueurs.net/magazines/linuxmag48.html (chercher les termes dans la page).

J'ajoute à ce que dit Lolo, que si le mois est en lettre, ça rajoute encore plus de manipulation.

Bonjour et merci pour ce retour.

Voici le message qui apparait lorsque j'utilise cette méthode (@table = sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } @table;)

Can't use string ("ALAIN TERIEUR") as an ARRAY ref whi
se at C:\Perl\VM\tableau_vmV2.pl line 37, <FIC2> line 16.

Voici mon tableau .doc que je lis. Les données sont séparées par des Tab.
J'ai modifié la date au format AAAA/MM/JJ avant de manipuler mes données.

TOTO CHRISTOPHE 12-09-2014 10:30
TOTO CHRISTOPHE 16-09-2014 15:15
TOTO CHRISTOPHE 18-09-2014 10:30
TATA GEORGES 16-09-2014 09:00
TATA GEORGES 25-09-2014 09:00
TATA GEORGES 30-09-2014 09:00
TITI MARIE-ANNICK 03-09-2014 09:20
TITI MARIE-ANNICK 10-09-2014 09:40
TITI MARIE-ANNICK 16-09-2014 09:40
TITI MARIE-ANNICK 17-09-2014 14:20
TITI MARIE-ANNICK 23-09-2014 09:40
TUTU STEPHANIE 11-09-2014 10:45
TUTU STEPHANIE 12-09-2014 10:45
TUTU STEPHANIE 15-09-2014 14:15
TUTU STEPHANIE 25-09-2014 14:15
TUTU STEPHANIE 26-09-2014 10:15

Voici ma requête:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 foreach my $t(@liste){ @vaccation = split(/\t/,$t); my $centre = $vaccation[0]; my @date = split(/-/,$vaccation[2]); $vaccation[2] = ($date[2]."/".$date[1]."/".$date[0]); my @horaire =split(/:/,$vaccation[3]); $vaccation[3] = hor($horaire[0],$horaire[1]); @vaccations = ($vaccation[1],$vaccation[2],$vaccation[3]); @vaccations = sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } @vaccations; $Feuil2->AddCell( $row, $coldr, $vaccations[0]); print "$vaccations[0]"; $Feuil2->AddCell( $row, $coldate, $vaccations[1]); print "$vaccations[1]"; $Feuil2->AddCell( $row, $colheure, $vaccations[2]); print "$vaccations[2]\n"; $row++; }
Quelle est donc mon erreur?

Merci

Citation:

Envoyé par moi77mini

Quelle est donc mon erreur?

Merci

Tes erreurs viennent de :
- le remplissage de @vaccations se fait avec les éléments d'une ligne à chaque fois : ils sont donc tous ajoutés à la suite, sans distinction d'une ligne à l'autre. Il faut les ajouter comme des "sous-tableaux" (donc des références à des tableaux anonymes), comme ceci :
Code:

1 2 push @vaccations, [$vaccation[1],$vaccation[2],$vaccation[3]];
- ensuite, tu ne dois pas faire le tri dans @vaccations juste après avoir ajouté l'élément d'une ligne, mais à la fin de la boucle, donc tu dois déplacer la ligne du sort après le bloc foreach
- enfin, en ce qui concerne les addcell que tu fais en fin de boucle (et dont on ne sait pas à quoi ils servent), tu dois utiliser le tableau @vaccation et non @vaccations, qui contiendra les informations de la ligne en cours (ou alors @{$vaccations}[-1] qui correspond au dernier élément @vaccation ajouté à @vaccations).

Sinon, il y a des améliorations "cosmétiques" possible dans ton script, en premier lieu l'indentation.

Merci Philou67430.

Il est vrai que je suis aux prémices d'un début de commencement en programmation Perl et que ma "cosmétique" n'est pas très travaillée et ce dû à un manque de connaissance avérée.

J'ai sorti le sort de la boucle foreach et lorsque je lance ce tit bout de programme il m'en retourne un "ARRAY (0x2216e0c)"
Code:

1 2 3 4 5 6 7 8 9 10 11 foreach my $t(@liste){ @vaccation = split(/\t/,$t); my $centre = $vaccation[0]; my @date = split(/-/,$vaccation[2]); $vaccation[2] = ($date[2]."/".$date[1]."/".$date[0]); my @horaire =split(/:/,$vaccation[3]); $vaccation[3] = hor($horaire[0],$horaire[1]); push @vaccations, [$vaccation[1],$vaccation[2],$vaccation[3]]; } @vaccations = sort ({ $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } @vaccations); print "$vaccations[0]";
Concernant mon insertion dans Excel, si je me sers des données de @vaccation (non triées) comment vont elles triées dans Excel?

Qu'est ce l'indentation?

Merci

Ça, c'est parce que à présent, dans ton tableau @vaccancies, tu as une liste de références de tableaux.
Pour voir correctement, le contenu de ton tableau, par exemple sous la même forme que ton format d'origine (un CSV dont les colonnes sont séparées par des tabulations), il faut "réassembler" le résultat des tous ces petits tableau (faire la dernière partie de la transformée Schwartzienne).

Tu peux le faire "directement" en pipeline avec sort :

Code:

@vaccations = map { join "\t", @$_ } sort ({ $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] || $a->[0] cmp $b->[0] } @vaccations);

Merci Philou67430.

Je t'avoue ne pas avoir tout compris mais cela fonctionne.

;);)