Discussion :

[lilian_h]

Bonjour à tous,

J'ai un trou de mémoire terrible !

Je ne me souviens plus à quoi sert la variable $" ...
Il me semble que sa modification impacte la sortie, mais ... impossible de m'en souvenir...

Un exemple:

Code :

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

1
2
3
4
5
6
 
open (__OUT, "> $XMLResult") || die ("Error: No write access");
#Writting result
$"='';
print __OUT "@Header$Body@Footer";
close __OUT;

Merci,
Lilian.

[lilian_h]

Arf je viens de trouver !

c'est à cause de la sortie de mes tableaux, pour ne pas avoir d'espaces entre chacun des éléments !

Mais ne faudrait-t-il pas que je le remette à la valeur d'origine (l'espace en l'occurrence) ?

Lilian.

[djibril]

Tu peux toujours utiliser la fonction join.

[lilian_h]

Merci Djibril.

Je n'y avais pas pensé !
C'est plus propre, et ca m'évitera de me reposer la question.

Code :

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

1
2
3
4
5
6
 
open (__OUT, "> $XMLResult") || die ("Error: No write access");
#Writting result
my $res_out=join('',@Header,$Body,@Footer);
print __OUT "$res_out";
close __OUT;

Lilian.

[djibril]

Code :

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

1
2
3
4
5
open (__OUT, '>', $XMLResult ) || die ("Error: No write access");
#Writting result
my $res_out = join('', @Header, $Body, @Footer);
print __OUT $res_out;
close __OUT;

[Philou67430]

Quant tu es troublé à ce point sur une variable implicite de perl, ouvre un terminal et tape

Code :

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

perldoc perlvar

Ceci dit, j'ai appris deux nouvelles variables ($, et $")

[lilian_h]

C'est vrai, mais je n'ai même pas pensé à perldoc... pfff, voilà ce que c'est de partir 3 jours en weekend ! :-)

Merci Djibril pour ta dernière remarque.

Lilian.

[lilian_h]

Et puis au passage, ca m'apprendra à ne pas assez commenter mes scripts...