Discussion :

[stoyak]

Bonjour à tous,

voila je vous soumets mon probleme...
j'ai un fichier qui ressemble à ça

sondeA 1 120
sondeB 1 125
sondeC 10 121
sondeD 10 122
sondeE 2 150
sondeG y 200
sondeF x 150

je voudrais classer selon la deuxieme puis la troisieme colonne pour avoir un resultat du style

sondeA 1 120
sondeB 1 125
sondeE 2 150
sondeC 10 121
sondeD 10 122
sondeF x 150
sondeG y 200

j'ai mis mon fichier temporaire dans un hash

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my %hash_temp;
open (FICTEMP,$fichier_temp) || die "impossible d'ouvrir le fichier $fichier_temp\n";
while (my $ligne_temp = <FICTEMP>) {
  chomp($ligne_temp);
  my @tab_ligne_temp = split ("\t",$ligne_temp);
  my $probe_temp = $tab_ligne_temp[0];  
  my $chr_temp = $tab_ligne_temp[1];
  my $start_temp = $tab_ligne_temp[2];
  $hash_temp{$probe_temp}=[$chr_temp,$start_temp];
}
close (FICTEMP);

alors voila .. comment classer mes donnees en fonction de la premiere puis de la deuxieme case du tableau de valeur de mon hash?

... merci d'avance!

[pospos]

ta seconde colonne peut contenir des lettres (x et y dans ton exemple) ou seulement des chiffres? je suppose que ce ne sont que des chiffres et que ton x y est juste pour l'exemple, sinon on peut pas la classer de ttes facons

deja pour simplifier pas besoin de hash, autant mettre ta ref des trois elements dans un tableau:

Code :

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

1
2
3
open (my $fh, '<', $fichier_temp) || die "impossible d'ouvrir le fichier $fichier_temp\n";
my @lines = map { chomp; [split(/\t/, $_)] } <$fh>;
close $fh;

la sortie des lignes triées:

Code :

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

print map {"@$_\n"} sort { ($a->[1] <=> $b->[1]) || ($a->[2] <=> $b->[2]) } @lines;

et bien sur tu peux faire l'ensemble en une fois sans passer par @lines

Code :

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

1
2
print map {"@$_\n"} sort { ($a->[1] <=> $b->[1]) || ($a->[2] <=> $b->[2]) } map { chomp; [split(/\t/, $_)] } <$fh>;
close $fh;

(code non testé)

ensuite si tu a bcp de ligne (plusieurs centaines de milliers) ca peut commencer a etre interessant de passer par d'autres methodes de tri genre celles proposées par Sort::Key, et si tu a encore plus de ligne et que tu ne peux pas le faire en memoire il faudra passer par du sort externe avec par exemple Sort::External (qui propose aussi un excellent tutoriel pour faire la meme chose que ce que fait Sort::Key au niveau de l'optimization du tri)