Discussion :

[ddouet2000]

Bonjour,

Je ne suis pas un crack du perl (pratique 1 fois par an environ...), j'aurais donc besoin d'un coup de main

J'ai un fichier csv que l'on me demandait de trier suivant la première colonnes. Jusque là pas de problème...

Code :

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

1
2
3
4
open(FILEIN, "test.csv") or die print "Can't open `$file': $!";
@datas = <FILEIN>;
@sorteddatas = sort { $a cmp $b } @datas;
...

Je retrouve mon résultat dans @sorteddatas.

Mais malheureusement, la demande a évoluée. Maintenant on me demande d'effectuer le tri sur la 2ieme colonne puis sur la 5ieme...

Je sais que je suis sensé de passer par un sort pour effectuer le tri de tel sorte, du type:

Code :

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

@sorted = sort { $hash{$a} cmp $hash{$b} } keys %hash;

ou

Code :

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

@sorteddatas = sort {(split ';', $a)[2] <=> (split ';', $b)[2]} @datas;

Mais malheureusement je ne comprends pas comment effectuer ce tri... Pourriez vous m'aider ?

Merci d'avance.

[Jasmine80]

Maintenant on me demande d'effectuer le tri sur la 2ieme colonne puis sur la 5ieme...

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
#!/usr/local/bin/perl
 
 
 
use strict;
use warnings;
 
 
my $file = 'test.csv';
 
open(FILEIN, $file) or die print "Can't open `$file': $!";
my @datas = <FILEIN>;
 
my @sorted_datas =
  map { $_->[2]}
    sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] }
       # récupération de $data[2] dans $1 et $data[5] dans $2 
       map { m/^\w+;\w+;(\w+);\w+;\w+;(\w+)/;  [ $1, $2, $_ ] } 
        @datas;
 
map {print "$_\n"} @sorted_datas;

voir la partie sur La Transformée Schwartzienne et la discussion
J'ai utilisé des ; comme séparateurs de tes valeurs.

[ddouet2000]

Merci beaucoup jasmine.
La discussion est très enrichissante !