use locale;
#!/usr/bin/perl
#On affiche "Saisissez le nom d'un fichier: "
print "Saisissez le nom d'un fichier: ";


#On affecte à la variable $file la saisie de l'entrée standard
my $file=<>;

#On supprime le retour chariot
chomp ($file);

#Si la variable $file n'a pas de contenu alors:
if ($file eq "") {

	#On affecte le contenu ajout.txt à la variable $file
	$file="ajout.txt";
}

#On ouvre en ajout le fichier référencé sous le nom FILEOUT
open(FILEOUT, ">>$file");

#On affiche "Saisissez le texte à ajouter dans $file puis ..."
#J'ai rajouté le "stop" car Ctrl-d ne fonctionne pas tout le temps apparemment
print "Saisissez le texte a ajouter dans le fichier $file puis tapez Ctrl-D pour stopper la saisie ou stop: \n";

#Tant qu'on a une ligne venant de l'entrée standard alors:
while ($ligne=<>) {

	#Si l'utilisateur tape "stop" alors:
	if ($ligne eq "stop") { 
		
		#La saisie est finie
		exit;
	}
	
	#Sinon:
	else {
		#On concatène le contenu de la variable $ligne à la variable $txt
		$txt .= $ligne;
	}
}
#On écrit le contenu de la variable $texte dans le fichier référencé sous le nom FICHIERSORTIE
print FILEOUT $txt;

#On ferme le fichier ouvert
close(FILEOUT);


#Pour contrôler ce qu'on a fait on va afficher le contenu du fichier créé
open(FILEIN, "$file");

#On affiche le contenu:
print "\nLe fichier $file contient: \n";

#Tant qu'on a une ligne dans le fichier alors:
while (my $line=<FILEIN>) {

	#On affiche le contenu de la variable $line
	print $line;
	
	#Retour à la ligne pour faciliter la lecture
	print "\n";
}


#On ferme le fichier ouvert
close(FILEIN);


