Discussion :

[cdjkhdjlhxjklnjskznj]

Bonjour à tous,

je fais un script qui dois recherché dans les fichiers d'un dossier et ses sous dossiers le contenu qui correspond a ce que l'utilisateur cherche.
J'ai déjà fais un script qui fonctionne le problème c'est qu'il marche comme ca :

(au préalable je demande le dossier)

Code :

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

1
2
3
4
5
6
7
8
9
print "Veuillez entrer le message d'erreur que vous voulez rechercher : ";
chomp(my $exp = <STDIN>);
sub recherche {;
  if (-f){
    print "**** FICHIER CONTENANT UNE ERREUR ****\n
    $File::Find::dir/$_\n"
    if grep { /$exp/ } `cat $_`; 
  }
}

Mon problème ici est le grep puis l'affichage via un cat, j'aimerais que ca s'enregistre dans un fichier .Txt directement (qui n'existe pas)

je ne sais pas comment faire ? j'ai essayé avec un print mais K.O


Merci de votre aide

[Philou67430]

Je crois qu'il manque ceci à la fin du script :

Code :

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

find(\&recherche,"$path");

Pour remplacer le `cat $_`, il faut :
- ouvrir le fichier $_ : open my $F, "<", $_;
- effectuer le grep sur la lecture de son contenu : print "ERROR found" if grep /$exp/, <$F>;

Cela dit, une chaine de caractère lue au clavier ne devrait pas être utilisée "telle quelle" comme expression régulière. Par exemple, si l'utilisateur tape un ".", celui-ci sera interprété comme "n'importe quel caractère". Si c'est bien ce qui est désiré, alors pas de soucis, sinon, utiliser la fonction quotemeta.

Enfin, s'il s'agit d'une recherche d'une simple chaine, sans besoin d'expression régulière, il est préférable d'utiliser la fonction index qui retourne un indice de sous-chaine dans une chaine, ou -1 en cas d'échec.

[cdjkhdjlhxjklnjskznj]

Oui le code y était bien :p

mon code actuel complet est :

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
26
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
 
print "Veuillez entrer le chemin du dossier : ";
chomp(my $path = <STDIN>);
 
 
#Le chemin du fichier config.cfg est passé en paramètre par l'utilisateur
print "Veuillez entrer le message d'erreur que vous voulez rechercher : ";
chomp(my $exp = <STDIN>);
print "Fichier(s) contenant le mot '$exp':\n";
 
sub recherche {;
  if (-f){
    print  "$File::Find::dir/$_\n"
    if grep { /$exp/ } `cat $_`;
 
 
  }
}
 
find(\&recherche,"$path");
print "*** Recherche terminee ***";
__END__

Oui le code ne dois pas être parfait et meme si l'utilisateur tape "." cela recherchera.
Par contre je comprend pas très bien ce que tu m'explique et comment l'appliqué surtout.
Je cherche a enregistrer dans un fichier .txt

[Philou67430]

Je t'ai montré comment écrire le résultat, donc lorsque tu lances le script tu peux simplement le faire en précisant que le résultat doit aller dans un fichier texte :
perl script.pl >resultat.txt

Si tu tiens à écrire le fichier directement depuis le script, ouvre alors un fichier en écriture en début de script, et utilise le File Handle pour écrire ton résultat (le print "ERROR found" notamment).

Écris ce que tu penses avoir compris et montre nous le résultat.

[cdjkhdjlhxjklnjskznj]

Ca fonctionne pas mais j'ai pas d'erreur j'ai peut être mal compris

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
26
27
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
 
print "Veuillez entrer le chemin du dossier : ";
chomp(my $path = <STDIN>);
 
 
#Le chemin du fichier config.cfg est passé en paramètre par l'utilisateur
print "Veuillez entrer le message d'erreur que vous voulez rechercher : ";
chomp(my $exp = <STDIN>);
print "Fichier(s) contenant le mot '$exp':\n";
my $F="resultat.txt";
sub recherche {;
  if (-f){
    print  "$File::Find::dir/$_\n"
    if grep { /$exp/ } `cat $_`;
    open my $F, ">>", $_;
    print "ERREUR found" if grep /$exp/, <$F>;
 
  }
}
 
find(\&recherche,"$path");
print "*** Recherche terminee ***";
__END__

Donc la j'ai déclaré le $F en résultat.txt après mon grep j'ouvre mon $F et j'ajoute avec ">>" le contenu de $_
Vu que ca fonctionne pas j'ai du très mal comprendre ?

[Philou67430]

Là, tu confonds le file handle du fichier dans lequel tu fais une recherche (avec grep), qui doit être ouvert EN LECTURE (et non en écriture comme tu l'as fait, ce qui risque de t'effacer tous tes fichiers), et le handle du fichier de sortie, qu'il faut ouvrir en écriture une seule fois avant l'appel à la fonction find.