#!/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, ">lastw.txt");



#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:
    $line=~s/&eacute;/é/g;
    $line=~s/&egrave;/è/g;
    $line=~s/&agrave;/à/g;
    }

	
  #Tant que la ligne contient des caractères:
	if ($line=~/\w+/) {
	  
	  #On crée un tableau à partir de nos lignes
	  #que l'on segmente grâce à la fonction "split"
	  #On utilise le blanc comme séparateur
	  @table=split(/ /,$line);

	  #On prend le dernier élément pour chaque ligne
	  $a=pop@table;

	  #On enlève la ponctuation:
	  $a=~s/\;|\.|\,//g;
	  
	  #On écrit l'élément pour chaque ligne
	  print FILEOUT "$a\n";
	}

}


#On ferme le fichier en lecture
close(FILEIN);
#On ferme le fichier de sortie
close(FILEOUT);
