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,