#!/usr/bin/perl -w
#ouverture locale
use locale; 

#ouverture d'un fichier en position 0 dans cygwin béta 20, référencé ensuite par FILE
open (FILE,"$ARGV[0]");
#ouverture d'un fichier en écriture,  si ce fichier existait auparavant : l'ancien contenu est écrasé.
#ce fichier s'appelle "resultat3.txt"
open (OUT,">resultat3.txt");

#while est une boucle qui signifie "tant que".
#A l'intérieur des parenthèse, on a la condition qui est de lire toutes les lignes du fichier. Ces lignes sont stockés dans la variable $a
#Tant que je peux lire des lignes, je le fais... la condition étant rempli, on peut donc rentrer dans la boucle. 
while ($a=<FILE>){ 
#La fonction chomp permet d'enlever les retours de lignes	
	chomp($a);
#Si la variable $a renvoie un mot suivi d'un non caractère en fin de mot alors je prend son contenu et je l'affiche dans un fichier de sortie
	if ($a=~/(\w+)(\W*)$/) { 
#On a une impression de $1 et de $2
#Les 1ères parenthèses renvoient $1 et les 2èmes parenthèses renvoient à $2 
# $1 renvoie au dernier mot et$2 renvoie à la ponctuation
		print OUT  "Dernier mot:",$1,"( et ponctution en fin de ligne :",$2,")\n";
	}

}
#On ferme le fichier de lecture
close (FILE);
#On ferme le fichier de sortie
close(OUT);