#!/usr/bin/perl 
#ouvrir le fichier amants.txt en lecture
open(FICHIER, "amants.txt");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat resultat2.txt en écriture
open(RESULTAT, ">resultat2.txt");
#créer un compteur qui vaut 0
$compteur = 0;
#tant qu'il y a des lignes dans le fichier amants.txt
while ($ligne = <FICHIER>){
    #pour chaque ligne contenant le motif eau
    if ($ligne =~ /eau/){
	#ajouter un au compteur
	$compteur  = $compteur + 1;
	#écrire dans le fichier résultat les lignes contenant le motif précédées du numéro de la ligne
	print RESULTAT $compteur, "-", $ligne, "\n";
    }
}
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);
