Bonjour à tous,
Je veux trier un fichier suivant deux colonnes, voici un exemple :
Le résultat recherché est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 4;00:00 1;00:00 6;00:00 4;01:00 1;01:00 6;01:00 4;23:00 1;23:00 6;23:00
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 1;00:00 1;01:00 1;23:00 4;00:00 4;01:00 4;23:00 6;00:00 6;01:00 6;23:00
Généralement, je ne trouve pas le même nombre de lignes dans les deux fichiers, alors que normalement oui . Je ne sais pas si mon code est juste.
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
23
24
25 #!/usr/bin/perl use strict; my %count; my $i; open my $filehandler, '<', 'Input.csv' or die "$!\n"; while (<$filehandler>) { chomp($_); my @ligne=split(";",$_); $i=$ligne[4]; $count {"$ligne[1].$ligne[4]"} =$_; print("$ligne[1] $ligne[4]\n"); } close $filehandler; open $filehandler, '>', 'Output.csv' or die "$!\n"; print $filehandler map { "$count{$_}\n" } sort { $a <=> $b } keys %count; close $filehandler;
Merci de m'aider.
Salutations.
Partager