#!/usr/bin/perl

#Demander à l'utilisateur de taper le nom du fichier à copier"
print "Tapez le nom du fichier a copier : ";
#Mettre le nom du fichier à copier dans une variable
my $fichieracopier=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($fichieracopier);
#Demander à l'utilisateur de taper le nom du fichier dans lequel va s'effectuer la copie "
print "Entrez le nom du fichier qui va contenir la copie ";
#Mettre le nom du fichier contenantla copie dans une variable
my $fichiercollage=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($fichiercollage);

#Si le fichier à copier n'existe pas
unless (-f $fichieracopier) {
	#L'appeller essai.txt
	$fichieracopier="essai.txt";
	#Le créer
	open(ENTREE, ">$fichieracopier");
	close(ENTREE);
}
#Si le fichier de collage n'existe pas
if ($fichiercollage eq "") {
	#L'appeler copie.txt
	$fichiercollage="copie.txt";
}
#Ouverture en lecture le fichier à coller
open(ENTREE1, "$fichieracopier");
#Ouverture en écriture du fichier de collage
open(SORTIE, ">$fichiercollage");
#Tant qu'il y a des lignes dans le fichier à copier
while (my $ligne=<ENTREE1>) {
	#Ecrire la ligne dans le fichier de collage
	print SORTIE $ligne;
}
#Fermeture fichier collage
close(SORTIE);
#Ouverture fichier fichier collage
open(ENTREE2, "$fichiercollage");
#écrire un contrôle dans le shell
print "Contenu du fichier de collage :\n";
#Tant qu'il y a des lignes dans le fichier de collage
while (my $ligne=<ENTREE2>) {
	#Ecrire la ligne
	print $ligne;
}
#Suivi d'un retour-chariot
print "\n";
#Fermeture fichier de collage
close(ENTREE2);
#Fermeture fichier à copier
close(ENTREE1);
