Discussion :

[vince2005]

Sous Unix, j'ai fait un script qui fait :

Code :

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

1
2
3
4
 
cat - << EOF
>?xml version="1.0" encoding="utf-8" ?>
EOF

je souhaiterai faire la meme chose, mais en perl ?

merci

[MarneusCalgarXP]

Code :

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

print('>?xml version="1.0" encoding="utf-8" ?>' . "\n");

[MarneusCalgarXP]

Au passage, ta ligne du mileu commence plutot par un < que par un >, sinon ca veut rien dire en xml...

Code :

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

print('<?xml version="1.0" encoding="utf-8" ?>' . "\n");

[Jedai]

On appelle ça un Heredoc :

Code perl :

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

1
2
3
4
5
my $world = "le Monde";
print <<"END_OF_TEXT";
Hello, $world !
Yahou !
END_OF_TEXT

Ou :

Code perl :

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

1
2
3
4
5
6
 
my $world = "le Monde";
print <<'END_OF_TEXT';
Hello, $world !
END_OF_TEXT
# pas d'interpolation de $world

Comme tu le vois il y a quelques subtilités, tu peux regarder la dernière partie de ce paragraphe de la doc et le paragraphe suivant pour tous les détails les plus affreux.

--
Jedaï