#!/usr/bin/perl -w
#il affiche à l'écran : Veuillez saisir le nom d'un fichier
print "Veuillez saisir le nom d'un fichier\n";
# l'utilisateur va rentrer un nom de fichier qui sera stocker dans la variable $fichier
$fichier=<STDIN>;
chomp($fichier);
# il va ouvrir le fichier en écriture. Il est référencié par le nom FILE
open(FILE, ">$fichier"); 
#il affiche à l'écran :  Vous pouvez écrire des lignes qui seront écrites dans le fichier
print "Vous pouvez écrire des lignes qui seront écrites dans le fichier\n";
# tant qu'il  y a des lignes  à lire, je le fais.  Je rentre dans le bloc d'instruction puisque la condition est remplie.
while ($ligne = <STDIN>) {
  #on efface les retours de lignes
  chomp($ligne);
  #si dans la ligne, je trouve fin, on rentre dans la condition
  if ($ligne eq "fin") { 
    # on imprime dans le fichier sortie la variable $texte
	print FILE "$texte\n"; 
    # Et la saisie de ligne pour l'utilisateur s'arrête	
	close FILE;
	exit;
	} 
 # sinon, on fait:  les $ligne s'affichent  au fur-à-mesure que l'utlisateur rentre des lignes dans l'entrée standard. 
 #Ces lignes sont stockées dans la variable texte  et 
 #il y a un retour à la ligne pour que les lignes ne soient écrasées les unes après les autres. Elles s'accumulent dans le fichier de sortie
 else { 
    $texte .="$ligne\n"; 
	}
}
#on ferme le fichier de sortie
close FILE;