Discussion :

[DB601]

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

[michon]

Je ne comprend pas la condition de ta boucle if...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (-e $nomTemplate )

Ensuite une erreur que je vois, c'est que "N" et "Y" sont des caractères littéraux, et donc tu ne peux tester l'égalité via un " == " mais il te faut utiliser l'opérateur de comparaison de String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if($rep eq "N")

EDIT: en fait c'est bon, je suppose que nomTemplate correspond au nom complet de ton fichier...

Après je vois peut être un souci sur ta récuperation de <STDIN>, il me semble que tu devrais faire un chop() pour éliminer le caractère parasite de fin de ligne...

EDIT2: Les parenthèse ne sont-elles pas nécessaires pour faire ton OPEN ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open(FICHIER,">tonfichier.txt");

EDIT3: Dans ta boucle if du départ tu utilise un nom de fichier " $nomTemplate" , mais à l'interieur tu cherches à ouvrir un fichier " $nomTemplate.txt "

Cela n'est pas le même fichier....

soit $nomTemplate correspond à "tonfichier.txt" et dans ce cas tu enlève le ".txt" que tu as rajouté,
soit $nomTemplate corresponf à "tonfichier" et dans ce cas tu dois mettre à chaque fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$nomTemplate.'.txt'

en lieu et place de $nomnTemplate.

[Beniou]

Je ne comprend pas la condition de ta boucle if...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if (-e $nomTemplate )

C'est un opérateur de test sur les fichiers. Celui-ci test l'existence d'un fichier. Il y en a d'autres comme -d qui test l'existence d'un répertoire, -r si un fichier possède les droits de lectures etc.
De ce côté là ok sauf qu'effectivement comme le dit Michon, tu testes l'existance de $nomTemplate et ensuite tu essayes d'ouvrir $nomTemplate.xml... A toi de voir si ta variable doit contenir le nom du fichier+son extension ou bien seulement le nom. Dans le premier cas, ta condition if est bonne sinon il faut mettre quelque chose du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if(-e $nomTemplate.".xml")

De plus effectivement, la comparaison de chaine se fait avec "eq" et non "==". Par contre, attention à la casse etc.
Tu peux faire par exemple pour le non où tu n'autorises que la lettre N ou n:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if($rep =~ /^n$/i)

Ensuite à toi d'adapter et de gérer tous les cas possibles.
Tu peux regarder aussi ce tuto pour bien gérer ce que tapes l'utilisateur : http://perl.developpez.com/sources/?page=Terminal#Term

Enfin, tu ouvres tu essayes d'écrire dans ton fichier même si l'utilisateur répond non : place ceci au bon endroit.
Et finalement, ne pas oublier de fermer ton descripteur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
close(XML);

[DB601]

beh moi je voulais justement tester l'existence du fichier! merci


et ça marche

parcontre je suis allée sur le lien que tu m'as filé, trés interessant mais ça ne m'a pas éclairé sur cette écriture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$rep =~/^n$/i

pourrais tu m'en dire plus stp ? ou me donner un lien ou je pourrais mieux comprendre cette ecriture?

je te remercie

[Beniou]

C'est une expression régulière. Ca fourmille d'exemples et de tutos partout sur le net. Par exemple si tu n'es pas réfractaire à l'anglais, une doc bien complète : http://perldoc.perl.org/perlre.html

Sinon pour expliquer cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$rep =~/^n$/i

L'expression régulière se compose de :
le "^" -> début de chaîne
lt "n" -> la lettre n
le "$" -> fin de chaîne
le "i" -> insensible à la casse

En gros si rep contient la chaîne "n" ou "N" alors cela revoit vrai. Dans tous les autres cas cela renvoit faux. Par exemple si on tape "non" ca ne marchera pas car le n est encadré par le symbole début de chaîne - fin de chaîne ce qui oblige le contenu de la chaîne a être réduit à la simple lettre n ou N.

bon je suis un peu brouillon mais les différents tutos devraient rapidement t"éclairer. Et si jamais tu a des questions: le forum est là pour ca

[DB601]

Merci je comprends mieux maintenant