#!/usr/bin/perl -w

#On ouvre en lecture le fichier à traiter
#et on le fait pointer sous le nom IN
open(FILEIN, "<amants.txt");

#On ouvre en écriture le fichier moteneau.txt
#et on le fait pointer sous le nom OUT
#Lorsque le fichier n'existe pas il est créé
#Lorsque le fichier existe déjà le contenu existant
#est remplacé par le contenu que nous allons mettre
open(FILEOUT, ">moteneau.txt");

#On crée un compteur:
my $i=1;

#Tant qu'on peut associer une ligne du fichier à traiter
#à la variable $line on exécute le bloc d'instructions
while ($line=<FILEIN>) {

  #Si la ligne contient &
  if ($line=~/\&/) { 
    
    #On nettoie le fichier au cas où:
    $line=~s/&eacute;/é/g;
    $line=~s/&egrave;/è/g;
    $line=~s/&agrave;/à/g;
    }

	#Si $ligne contient la chaîne de caractères "eau"
  #on exécute le bloc d'instructions
  #Pour trouver "eau" on utilise un opérateur conditionnel
  #qui signifie la ressemblance (=~).
  #La syntaxe est la suivante:
  #chaîne_ou_variable=~~/expr_régulière/
	if ($line=~/eau/) {

		#On écrit dans le fichier moteneau.txt 
	  #le contenu de la variable $ligne avec le chiffre
	  #de la ligne correspondante avant:
		print FILEOUT "$i. $line";
	}
#On incrémente le compteur:
$i++;
}


#On ferme le fichier en lecture
close(FILEIN);
#On ferme le fichier de sortie
close(FILEOUT);
