Bonjour à tous,

Je veux trier un fichier suivant deux colonnes, voici un exemple :
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
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
 
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
Voici mon code :
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;
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.

Merci de m'aider.

Salutations.