#!/usr/bin/perl
#On affiche "Donnez moi le nom du fichier de travail : "
print "Donnez moi le nom du fichier de travail : ";
#On affecte à la variable $fichierdetravail le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
my $fichierdetravail=<STDIN>;
#On supprime le dernier caractère contenu dans la variable $fichierdetravail seulement si celui-ci est un retour à la ligne
chomp ($fichierdetravail);
#Si le contenu de la variable $fichierdetravail est égal à rien, on exécute le bloc d'instructions
if ($fichierdetravail eq "") {
	#On affecte la chaîne de caractères "ajout.txt" à la variable $fichierdetravail
	$fichierdetravail="ajout.txt";
}
#On ouvre en ajout le fichier dont le nom est contenu dans la variable $fichierdetravail et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, le contenu du fichier n'est pas écrasé (Les caractères sont ajoutés à la suite)
open(FICHIERSORTIE, ">>$fichierdetravail");
#On affiche "Saisir le texte a copier dans le fichier $fichierdetravail (Pour terminer la saisie pressez les touches : Ctrl+D) :"
#On retourne à la ligne
print "Saisir le texte a copier dans le fichier $fichierdetravail (Pour terminer la saisie pressez les touches : Ctrl+D) :\n";
#Tant qu'on peut associer la dernière chaîne de caractères venant de l'entrée standard (Le clavier) à la variable $ligne, on exécute le bloc d'instructions
while ($ligne=<>) {
	#On ajoute, à la suite du contenu de la variable $texte, le contenu de la variable $ligne
	$texte .= $ligne;
}
#On écrit le contenu de la variable $texte dans le fichier référencé sous le nom FICHIERSORTIE
print FICHIERSORTIE $texte;
#On ferme le fichier référencé sous le nom FICHIERSORTIE
close(FICHIERSORTIE);
#On ouvre en lecture le fichier dont le nom est contenu dans la variable $fichierdetravail et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, "$fichierdetravail");
#On retourne à la ligne
#On affiche "Contenu du fichier :"
#On retourne à la ligne
print "\nContenu du fichier :\n";
#Tant qu'on peut associer une ligne du fichier référencé sous le nom FICHIERENTREE à la variable $l, on exécute le bloc d'instructions
while (my $l=<FICHIERENTREE>) {
	#On affiche le contenu de la variable $l
	print $l;
}
#On retourne à la ligne
print "\n";
#On ferme le fichier référencé sous le nom FICHIERENTREE
close(FICHIERENTREE);