Discussion :

[mashu]

Bonjour,
je souhaite rechercher le nombre de fois qu'un mot est répété dans un fichier, à partir du début de ce fichier jusqu'a une valeur précise :
je veux récupérer combien de fois le mot "toto" est trouvé entre ma 1er ligne et la ligne ou se trouve le mot "blabla".

Voila, je sais pas trop comment m'y prendre pour dire "de...à..." et pour compter combien de fois une valeur revient...

Code :

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

1
2
3
4
5
6
7
8
9
10
OPEN (MON_FICHIER, "fichier.txt") or die "fichier absent";
      @var_toto <MON_FICHIER>;
      my $var_toto_result;
      IF (EXISTS @var_toto{"toto"}) #recherche du terme toto
            {
    		$var_toto_result= @var_toto;     
                          print "toto a été trouvé $var_toto_result fois"; 
                        #(ex : toto à été trouvé 5 fois)
    	}
CLOSE MON_FICHIER;

Je mets une ébauche de code afin que vous puissiez comprendre de quoi je parle, mais il me manque de...à...

Merci pour vos éclaircissement...

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
 
my $toto;
open(MON_FICHIER, "chemin/fichier.txt") or die "fichier absent $!";
while (my $ligne = <MON_FICHIER>){
	if($ligne =~ /toto/){
		$toto++;
	}
	if($ligne =~ /blabla/){
		last;
	}
}
close(MON_FICHIER);

PS :
1) Pour rendre insensible à la casse, tu dois ajouter un i =~/ /i
2) Peux-tu avoir plus d'un 'toto' par ligne? Ce programme ne fonctionnera que si tu n'as qu'une seule fois le mot toto sur la ligne.

Sinon tu peux remplacer le if par :

Code :

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

1
2
3
if(my @toto = ($ligne =~ /toto/g)){ 
	$toto+= @toto;
}

[mashu]

Coucou jasmine80,

merci de te soucier de mon code

J'ai bien un seul toto par ligne...

Je viens de tester ton code et ca marche !!

Cependant, j'ai oublié de te préciser que le "blabla" revenait plusieurs fois dans la page, et qu'a chaque fois que je rencontrais ce terme, je devais compter les mots "toto" qu'il y a entre le début du fichier et le nouveau terme blabla rencontré (le précédent on le zappe)...

ex :
début => blabla(1er) = 5 termes toto (on stocke cette valeur)
début => blabla(2nd) = 10 termes toto (on stocke aussi cette valeur)
début => blabla(3rd) = 9 termes toto (on stocke aussi cette valeur)
....

Merci pour ton aide

[Jasmine80]

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
use strict;
use warnings;
 
my @differents_blabla;
my $toto;
 
 
open(MON_FICHIER, "chemin/fichier.txt") or die "fichier absent $!";
while (my $ligne = <MON_FICHIER>){
	if($ligne =~ /toto/){
		$toto++;
	}
	if($ligne =~ /blabla/){
		push(@differents_blabla, $toto);
	}
}
close(MON_FICHIER);
 
for (my $i=0; $i<@differents_blabla; $i++){
	print $i+1 ."ième blabla => $differents_blabla[$i] occurences de toto\n";
}

nb : $i+1 car l'indexation des array (@differents_blabla) commence à 0

[mashu]

Pouh c'est génial, merci 1000 fois

[Jasmine80]

Pouh c'est génial, merci 1000 fois

De rien, c'est avec plaisir.

Juste une remarque, si tu n'as pas besoin de stocker les informations dans un tableau, tu peux directement effectuer l'affichage comme suit :

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
use strict;
use warnings;
 
my $i = 1;
my $toto;
 
 
open(MON_FICHIER, "chemin/fichier.txt") or die "fichier absent $!";
while (my $ligne = <MON_FICHIER>){
	if($ligne =~ /toto/){
		$toto++;
	}
	if($ligne =~ /blabla/){
		print $i."ième blabla => $toto occurences de toto\n";
		$i++;
	}
}
close(MON_FICHIER);