Discussion :

[Jasmine80]

Bonjour à tous,


J'aimerais un peu d'aide afin de réussir à trier mon array, selon la valeur numérique de S, puis celle de A :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
my @sample_name = qw /FP014SC_A12_S7
FP014SC_A12_S5
FP014SC_A1_S5
FP014SC_A15_S5
FP014SC_A16_S6
FP014SC_A2_S6/;
 
 
# d'abord, tous les S1 (de A1 à A16), puis les S2 (de A1 à A16)  ...
 
@sample_name = map {  sort {$a<=>$b} $_[1]} map {  sort {$a<=>$b} $_[2]} map {split ('_', $_)} @sample_name;
 
print join("\t", @sample_name), "\n";

D'avance merci,

[cmcmc]

Vite fait (je suis à la bourre...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Taisha:~/perl/forum $ perl -E '
my @sample_name = qw /FP014SC_A12_S7
 FP014SC_A12_S5
 FP014SC_A1_S5
 FP014SC_A15_S5
 FP014SC_A16_S6
 FP014SC_A2_S6/;
my @sorted = map { join "", @$_ }
             sort { $a->[3] <=> $b->[3] or $a->[1] <=> $b->[1] }
             map {
               my @decomposition = m/^(.*_A)(\d+)(_S)(\d+)$/
                 or die "erreur de format: \047$_\047";
               [ @decomposition ]
             } @sample_name;
say for @sorted'
FP014SC_A1_S5
FP014SC_A12_S5
FP014SC_A15_S5
FP014SC_A2_S6
FP014SC_A16_S6
FP014SC_A12_S7
Taisha:~/perl/forum $

Si tu as des questions n'hésite pas.

[Jasmine80]

Ah c'est vraiment super ! Merci beaucoup, surtout que tu étais à la bourre.
Il y a juste cette partie que je ne comprends pas : [ @decomposition ] ... mais, les explications peuvent attendre quelques jours ... ça fonctionne, et je peux continuer mon code.
Encore merci pour ton aide.

[Philou67430]

Code :

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

[ @decomposition ]

Permet de créer un tableau (array) anonyme contenant @decomposition (la décomposition du texte en clés de tri).
Chaque élément retourné par map sera donc une référence à un tableau et dans la routine de tri, $a->[3] fera référence au 4e élément décomposé d'une ligne, et $a->[1] au 2e élément décomposé.
Le map du début du pipeline va reconstruire les lignes d'origine après avoir été triées en procédant par join "", @$_

Cette opération de tri utilise la technique de la transformée Schwartzienne

[Jasmine80]

J'ai compris le traitement des données, mais il va falloir que je m'entraine avant de réussir seule.
Merci beaucoup pour ces explications et ce lien.

[Jasmine80]

Je revoyais le code, pour essayer de bien m'ancrer son fonctionnement dans la tête ... puis, je me suis demandée, pourquoi utiliser un 'or' dans le map du tri ?

[cmcmc]

Cette opération de tri utilise la technique de la transformée Schwartzienne

Disons plutôt un map/sort/map. La 'transformée Schwarzienne' canonique dans ce cas aurait me semble-t-il été

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Taisha:~/perl/forum $ perl -E '
my @sample_name = qw /FP014SC_A12_S7
 FP014SC_A12_S5
 FP014SC_A1_S5
 FP014SC_A15_S5
 FP014SC_A16_S6
 FP014SC_A2_S6/;
my @sorted = map $_->[0] =>
             sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] }
             map { [ $_, reverse m/^.*_A(\d+)_S(\d+)$/ ] }
             @sample_name;
say for @sorted'
FP014SC_A1_S5
FP014SC_A12_S5
FP014SC_A15_S5
FP014SC_A2_S6
FP014SC_A16_S6
FP014SC_A12_S7
Taisha:~/perl/forum $

[Jasmine80]

Et bien et bien, que de lecture pour ce matin, et ainsi bien démarrer la journée. Merci à tous pour ces explications très claires. Pour une fois, j'ai dix fois plus de commentaires que de code .
Je n'ai pas encore regardé le lien 'A Fresh Look at Efficient Perl Sorting', mais je compte le faire. Le tri, c'est vraiment un sujet très intéressant, là j'utilise les tutoriels de ce forum 'Programmation fonctionnelle en Perl' de Laurent Rosenfeld, mais je n'ai pas encore tout compris . Je suis contente ce matin, je viens de découvrir le 'ctrl scroll', qui me permet de soulager mes yeux

C'est grâce à des personnes comme vous que ce forum est si agréable.

Bonne journée à tous.