#!/usr/bin/perl -w #j'ouvre un fichier en sortie, référencé sous le nom OUT open(OUT,">resultat.txt"); #on a une variable appelé texte. Il contient 2 phrases séparés par un retour à la ligne. $texte="Il y a 2 mois, ce n'est pas toi qui a découvert cette vieille armoire, cachée sous la toiture\n.Moi, je te dis que c'est bien moi, il y a 2 ou 3 mois "; # on affiche dans l'entrée standard: Taper le mot à chercher: print "Taper le mot à chercher:"; # le mot entré par l'utilisateur est stocké dans la variable $motif $motif=; #on retire les retours à la ligne s'il y en a chomp($motif); # on affiche dans l'entrée standard:Taper la sous-chaine à chercher: print "Taper la sous-chaine à chercher:"; # le mot entré par l'utilisateur est stocké dans la variable $motif2 $motif2=; #on retire les retours à la ligne s'il y en a chomp($motif2); # on affiche dans l'entrée standard:Taper le mot de début de phrase à chercher: print "Taper le mot de début de phrase à chercher:"; # le mot entré par l'utilisateur est stocké dans la variable $motif3 $motif3=; #on retire les retours à la ligne s'il y en a chomp($motif3); #Si dans le texte, il y a le motif, on rentre dans la condition qui est: if ($texte=~/\.$motif/i) { # d'afficher le motif dans le fichier de sortie print OUT "Recherche du mot : $motif\n"; } #sinon il affiche en sortie cette phrase la: Echec de la recherche du mot : $motif #$motif renvoie au motif entré par l'utilisateur dans l'entrée standard else {print OUT "Echec de la recherche du mot : $motif\n"; } # 2ème condition: si dans le texte, il y a le motif2, on rentre dans la condition qui est: if ($texte=~/$motif2/i) { # d'afficher le motif2 dans le fichier de sortie print OUT "Recherche de la sous-chaine : $motif2\n"; } #sinon il affiche en sortie cette phrase la: Echec de la recherche du mot : $motif2 #$motif2 renvoie au motif entré par l'utilisateur dans l'entrée standard else {print OUT "Echec de la recherche de la sous-chaine : $motif2\n"; } # 3ème condition: si dans le texte, il y a le motif3 qui est en début de ligne, on rentre dans la condition: if ($texte=~/^$motif3/i) { # d'afficher le motif3 dans le fichier de sortie print OUT "Recherche de : $motif3\n"; } #sinon il affiche en sortie cette phrase la: Echec de la recherche du mot : $motif3 #$motif3 renvoie au motif entré par l'utilisateur dans l'entrée standard else {print OUT "Echec de la recherche du mot : $motif3 en début de ligne\n"; } #on ferme le fichier en écriture. close OUT;