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