Discussion :

[falco-]

Bonjour,
je dois construire des fichiers et j'utilise la méthode format mais les données que je récupère n'ont pas toutes la même taille.
Je dois obtenir les données encadrées sans blanc ! (ici name et description)
Comment faire pour soit supprimer les blancs soit utiliser une autre méthode !
Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
format XML =
<?xml version="1.0" encoding="UTF-8"?>
<Group failonerror="true">
<name="@!!!!!" description="@<<<<<<<<<<<<<<<<<<<"/>
$1, $2
</Group>
.
 
open(XML,">$path/Config.xml"); write XML;close XML;
 
open(XML,">>$path/$Config.xml"); $1=1;$2=2;write XML;close XML;
open(XML,">>$path/$Config.xml"); $1=111;$2=222;write XML;close XML;

[Jedai]

Pourquoi utilises-tu les formats si tu ne veux pas de mise en forme ?
Une simple fonction peut suffire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub xmlGroup {
  my ($name, $descr) = @_;
  return <<EOX;
<?xml version="1.0" encoding="UTF-8"?>
<Group failonerror="true">
<name="$name" description="$descr"/>
</Group>
EOX
}
 
open(XML,">$path/Config.xml"); print XML xmlGroup( 111, 222 ); close XML;

Peut-être que tu devrais plutôt utiliser un module de template comme il y en a des dizaines sur le CPAN si tu as souvent ce genre de code à faire.

--
Jedaï

[falco-]

Bonjour,
une erreur se produit au lancement :
Can't find string terminator "EOX" anywhere before EOF at test.pl line 3.

A quoi sert EOX ...

Merci pour votre rapidité et la qualité de vos réponses.

[Jedai]

Bonjour,
une erreur se produit au lancement :
Can't find string terminator "EOX" anywhere before EOF at test.pl line 3.

A quoi sert EOX ...

Merci pour votre rapidité et la qualité de vos réponses.

C'est parce que tu n'as pas recopié exactement ce que j'ai écrit, plus exactement tu as dû mettre un espace devant le EOX en début de ligne. C'est une notation appelée HEREDOC et ça sert à mettre des chaînes de caractères de plusieurs lignes de façon propre dans un script Perl :

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
20
21
my $vars = 'variables';
my $string = <<HELLO;
Ceci est un HEREDOC, il s'arrêtera seulement lorsque la chaîne HELLO
sera trouvée en première colonne, seule sur sa ligne.
On peut y interpoler des $vars comme dans une chaîne entre double
quotes " ", mais on peut controler ce comportement plus précisément
en mettant <<'HELLO' par exemple au lieu de <<HELLO, on interdit
l'interpolation dans la chaîne.
Voici la fin :
HELLO
 
print $string;
print "Nous sommes de nouveau dans du code normal\n";
 
print <<HOP, "Après le HEREDOC";
On peut insérer un HEREDOC n'importe où l'on pourrait mettre une
string normale, il faut juste se rappeler que le texte du HEREDOC 
commencera à la ligne suivante.
HOP
 
__END__

Je remarque que la coloration du code fait absolument n'importe quoi, mais ne t'inquiète pas, tous les bons éditeurs de texte qui prennent en charge la coloration syntaxique du Perl colorent les HEREDOC correctement.

--
Jedaï

[falco-]

Bonjour,
merci pour vos conseils.
tout est ok.
C'est plus facile en utilisant ces fonctions que les formats (dans mon cas).
Le HEREDOC (!) est très pratique pour formater un fichier en xml.
Cordialement.