Discussion :

[kimikou]

Bonsoir,

Voici mon fichier d'origine :

Code :

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

1
2
3
4
5
6
7
8
9
10
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
<chaine de caractère quelconque> one:2.10.20.1/33 <chaine de caractère quelconque> two:7.65.0.6/45
<chaine de caractère quelconque> one:200.11.4.9/22 <chaine de caractère quelconque> two:90.1.70.1/198
<chaine de caractère quelconque> one:2.10.20.1/33 <chaine de caractère quelconque> two:7.65.0.6/45
<chaine de caractère quelconque> one:200.11.4.9/50 <chaine de caractère quelconque> two:90.1.70.1/198
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
<chaine de caractère quelconque> one:6.60.121.7/120 <chaine de caractère quelconque> two:12.54.30.1/111
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/15
etc...

Et j'aimerai trier les lignes selon les nombres situés après 'one:' et après 'two:' (tout en calculant le nombre de lignes), donc obtenir quelquechose du genre:

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
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/12
Total : 3
 
<chaine de caractère quelconque> one:1.2.3.4/50 <chaine de caractère quelconque> two:4.1.3.1/15
Total : 1
 
<chaine de caractère quelconque> one:2.10.20.1/33 <chaine de caractère quelconque> two:7.65.0.6/45
<chaine de caractère quelconque> one:2.10.20.1/33 <chaine de caractère quelconque> two:7.65.0.6/45
Total : 2
 
<chaine de caractère quelconque> one:200.11.4.9/22 <chaine de caractère quelconque> two:90.1.70.1/198
<chaine de caractère quelconque> one:200.11.4.9/22 <chaine de caractère quelconque> two:90.1.70.1/198
Total : 2
 
<chaine de caractère quelconque> one:6.60.121.7/120 <chaine de caractère quelconque> two:12.54.30.1/111
Total : 1
 
etc...

Autrement dit, j'aimerai regrouper les lignes qui possèdent la même chaine de caractère situé après 'one:' et après 'two:'.

Quelle méthode pourrai-je utiliser ?

Merci d'avance.

[Lolo78]

Utilise un hash et concatène les lignes dans le hash.

[kimikou]

Voici la méthode que j'ai appliquée qui me créé le fichier voulu:

Code :

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

1
2
3
4
5
6
7
8
9
my %lignes = ();
    while (my $ligne = <FIC>) {
 	chomp $ligne;
 	if ($ligne =~ /.*one:(.*/\d+).*two:(.*/\d+).*/) {
 	    my $cle = "$1 $2";
 	    $lignes {$cle} .= "$cle : $ligne\n";
 	}
    }
    print FIC_OUT "$lignes{$_}\n" foreach sort {$a cmp $b} keys %lignes;

Mais comment comptabiliser et afficher le nombre de lignes pour chaque clé ?

[brice45]

Bonjour,

plutôt que de mettre ta ligne dans la valeur de ton hash passe la en clé. Par ex si ton hash s'appelle hash tu auras :

Code :

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

$hash{$cle}{$ligne}

ensuite pour avoir un compteur incrémente ton hash dans la boucle. La valeur qu'il prendra te donne la valeur du compteur :

Code :

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

$hash{$cle}{$ligne}++

Dans ton code :

Code :

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

1
2
3
4
5
6
7
while (my $ligne = <FIC>) {
 	chomp $ligne;
 	if ($ligne =~ /.*one:(.*/\d+).*two:(.*/\d+).*/) {
 	    my $cle = "$1 $2";
 	    $hash{$cle}{$ligne}++;
 	}
    }

[kimikou]

Merci, mais je ne saisis pas tout.

En effet, comment je peux trier mes lignes selon les clés avec cette méthode?

Et donc comment transformer cette ligne :

Code :

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

print FIC_OUT "$lignes{$_}\n" foreach sort {$a cmp $b} keys %lignes;

en ajoutant en plus le compteur.

[brice45]

Code :

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

1
2
3
4
5
6
7
8
open (FIC_OUT, "> $monfichier");
 
foreach my $key (sort keys %hash) {
	foreach my $key2 (sort keys %{$hash{$key}) {
		print FIC_OUT "$key $key2 $hash{$key}{$key2}\n";
	}
}	
close FIC_OUT;

[kimikou]

Du coup, on perd la concaténation :

Code :

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

$lignes {$cle} .= "$cle : $ligne\n";

non?

[Lolo78]

Compter les lignes:

Code :

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

1
2
my @temp_array = split "\n", $lignes {$cle};
my $nb_lignes = @temp_array ; # le contexte scalaire donne la taille du tableau

[brice45]

Du coup, on perd la concaténation :
$lignes {$cle} .= "$cle : $ligne\n";

Non. Si tu affiches tel que :

Code :

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

print FIC_OUT "$key $key2 $hash{$key}{$key2}\n";

$key correspond à $cle
$key2 correspond à $ligne

[Lolo78]

Autre façon de compter les lignes concaténées dans le hash:

Code :

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

my $nb_lignes ++ while $lignes {$cle} =~ /\n/;