use locale;
#!/usr/bin/perl

#On affiche "Saisissez le nom d'un fichier: "
print "Saisissez le nom d'un fichier a copier: ";

#On affecte à la variable $file la saisie de l'entrée standard
my $file=<STDIN>;

#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="essai.txt";
}

#On ouvre en lecture le fichier référencé sous le nom FILE
open(FILE, "$file");



#On affiche "Saisissez le nom d'un fichier: "
print "Saisissez le nom d'un fichier qui contiendra le fichier copie: ";

#On affecte à la variable $file la saisie de l'entrée standard
my $file2=<STDIN>;

#On supprime le retour chariot
chomp ($file2);

#Si la variable $file n'a pas de contenu alors:
if ($file2 eq "") {

	#On affecte le contenu ajout.txt à la variable $file
	$file2="copie.txt";
}

#On ouvre en écriture le fichier référencé sous le nom FILE
open(FILEOUT, ">$file2");

print FILEOUT "\n";
print "\n";
#Tant qu'il y a des lignes dans le fichier référencé sous le nom FILE
while ($ligne=<FILE>) {

	#On affiche la ligne dans le fichier en écriture
	print FILEOUT "$ligne";
	print $ligne;
}

#Pour contrôler ce qu'on a fait on va afficher le contenu du fichier créé
open(FILEOUT, "$file2");

#On affiche le contenu:
print "\n\nLe fichier $file2 contient: \n\n";

#Tant qu'on a une ligne dans le fichier alors:
while ($line=<FILEOUT>) {

	#On affiche le contenu de la variable $line
	print $line;
}
#Retour à la ligne pour faciliter la lecture
print "\n";



#On ferme les fichiers ouverts

close FILE;
close FILEOUT;