#!/usr/bin/perl
#Demander à l'utilisateur d'entrer le nom du fichier"
print "Entrez le nom du fichier : ";
#Mettre le flux de l'entrée standart dans une variable
my $fichier=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($fichier);
#Si l'utilisateur n'a rien tapé
if ($fichier eq "") {
	#on appelle le fichier ajout.txt
	$fichier="ajout.txt";
}
#Ouverture en ajout de $fichier
open(SORTIE, ">>$fichier");
#Demander à l'utilisateur d'entrer le texte à écrire dans le fichier
print "Entrez le texte a écrire dans le fichier $fichier et tapez Ctrl+D pour finir :\n";
#Tant que l'utilisateur tape des lignes
while ($ligne=<>) {
	#Ecrire les lignes dans une variable $texte
	$texte .= $ligne;
}
#Ecrire le contenu de la variable $texte dans $fichier
print SORTIE $texte;
#Fermeture de $fichier en ajout
close(SORTIE);
#Ouvrir le fichier créé  en lecture
open(ENTREE, "$fichier");
#Ecriture dans le shell le contenu de $fichier
print "\nContenu du fichier créé:\n";
#Tant qu'il y a des lignes dans le fichier
while (my $lignes=<ENTREE>) {
	#Ecrire le contenu de chaque ligne
	print $lignes;
}
#suivi d'un retour chariot
print "\n";
#Fermer $fichier
close(ENTREE);
