BOnjour à tous,

J'ai parcouru la FAQ, les cours et ça ne fonctionnt toujours pas

j'utilise un script Perl pour générer des fichiers XML

le nom du fichier n'est pas fixe mais pourrait être le même
et donc je voudrais une condition qui demanderai à l'utilisateur "si il veut vraiment écraser l'ancien fichier " selon l'existance ou pas du fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#des lignes de code avant mais je doute que ça a un rapport avec le non fonctionnement de la boucle
# j'entre un nom de fichier
my $hostname = shift;
 
if (-e $nomTemplate ) {
			print "voulez vous vraiment remplacer le fichier existant? ";
			print "tapez 'Y' ou 'N' !! ";
			my $rep=<STDIN>;
					if ($rep==N){
					exit;
					}
					elsif ($rep==Y){
			open XML, ">$nomTemplate.xml";
					}
			}
			else {open XML, ">$nomTemplate.xml";}
 
print XML "tessssssssst";
quelqu'un pourrait me dire si j'ai tout faux dans mon raisonnement ou ma syntaxe et à ce moment là me donner conseils;

merci