#!/usr/bin/perl -w

#On ouvre en lecture le fichier à traiter
#et on le fait pointer sous le nom FILEIN
open(FILEIN, "<amants.txt");

#On ouvre en écriture le fichier 1stw.txt
#et on le fait pointer sous le nom FILEOUT
#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, ">ex51.txt");


#Tant qu'on peut associer une ligne du fichier à traiter
#à la variable $line on exécute le bloc d'instructions
while ($line=<FILEIN>) {
    
    #On nettoie le fichier au cas où:
    $line=~s/&eacute;/é/g;
    $line=~s/&egrave;/è/g;
    $line=~s/&agrave;/à/g;

    #On remplace "les" par "des"
    $line=~s/les/des/g;
    $line=~s/Les/Des/g;

    #On remplace "un" par "1"
    $line=~s/ un[^a-z]/ 1 /g;

    #On remplace "deux" par "2"
    $line=~s/ deux / 2 /g;
    
	  
	  
  #On écrit l'élément pour chaque ligne
  print FILEOUT "$line\n";
	
}


#On ferme le fichier en lecture
close(FILEIN);
#On ferme le fichier de sortie
close(FILEOUT);
