#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 "resultat5.txt"
open (OUT,">resultat5.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>){ 

	$a=~s/\bun\b/1/gi;	#  je recherche un et je remplace par 1 
	$a=~s/\bdeux\b/2/gi; #  je recherche deux et je remplace par 2
	$a=~s/\btrois\b/3/gi; #  je recherche trois et je remplace par 3 
	$a=~s/\bquatre\b/4/gi; #  je recherche quatre et je remplace par 4
	$a=~s/\bcinq\b/5/gi; #  je recherche cinq et je remplace par 5 
	$a=~s/\bsix\b/6/gi; #  je recherche six et je remplace par 6
	$a=~s/\bsept\b/7/gi; #  je recherche sept et je remplace par 7 
	$a=~s/\bhuit\b/8/gi; #  je recherche huit et je remplace par 8
	$a=~s/\bneuf\b/9/gi; #  je recherche neuf et je remplace par 9
	$a=~s/\bdix\b/10/gi; #  je recherche dix et je remplace par 10
# on affiche la variable a dans le fichier de sortie
	print OUT "$a \n"; # j'imprime le fichier avec les modifications

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