Discussion :

[Hoopsy]

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.

[Jasmine80]

http://articles.mongueurs.net/magazines/linuxmag48.html

peut-être avec une transformation Schwartzienne, effectuer le tri sur la première partie de la ligne et ensuite sur la seconde.

[iblis]

Dans l'esprit du conseil de Jasmine:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/env perl
use strict; use warnings;
 
my %lines;
while (<>) {	
	my @fields = split ';';
	$lines{$_} = [ $fields[0], $fields[1] ];
}
print sort { $lines{$a}->[0] <=> $lines{$b}->[0] }
		sort { $lines{$a}->[1] cmp $lines{$b}->[1] }
			keys %lines;

Pour le 2ème critère, il est judicieux à mon avis d'utiliser la comparaison de chaîne (cela évite de décomposer les deux sous-champs).

Demande ce que tu ne comprends pas. (J'ai utilisé un hash de tableau à deux entrées).

[Jasmine80]

script de Jedai

Adapté à ton cas :

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 warnings;
use strict;
 
 
open my $filehandler, '<', "data.txt" or die $!;
my @list = <$filehandler>;
close $filehandler;
 
 
 
 
my @sorted_list =
  map { $_->[2] }
    sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
      map { m/^(\d+);(\d+):\d+$/; [ $1, $2, $_ ] }
        @list;
 
 
map {print "$_\n"} @sorted_list;

[iblis]

Petite correction (grâce à Jedaï et Jasmine)) sur le code que je t'ai montré : il vaut mieux bien sûr éviter les deux sort et remplacer par un ||. Autant pour moi, j'ai tapé un peu trop vite.

Code :

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

1
2
3
4
5
6
7
8
my %lines;
while (<>) {	
	my @fields = split ';';
	$lines{$_} = [ $fields[0], $fields[1] ];
}
print sort { $lines{$a}->[0] <=> $lines{$b}->[0] 
		|| $lines{$a}->[1] cmp $lines{$b}->[1] }
			keys %lines;

[Hoopsy]

Bonsoir,

Merci de m'avoir aidé, maintenant tout marche comme sur des roulettes .

Merci Iblis et Jasmine80 .

Salutations.

[Jasmine80]

N'hésite pas à poser des questions sur ce que tu ne comprends pas.