Comment puis-je remplacer la balise <opt> dans XML :: Simple avec le nom de balise d'origine?

Question

J'utilise XML::Simple pour modifier un fichier XML. Après quoi les données mises à jour sont envoyées à un nouveau fichier XML. Mais cette procédure produit <opt></opt> étiquette à ajouter et l'étiquette parent d'origine est perdue. Je veux remplacer <opt> par le nom de l'étiquette d'origine. Comment je fais ça?

Answer 1

Vous êtes étirer les limites de XML::Simple. Quand vous arrivez au point où vous n'aimez pas exactement ce qu'il fait, il est temps pour autre chose. Qu'est-ce que quelque chose d'autre dépend de votre problème, mais j'aime XML::Twig.

Answer 2

Voir KeepRoot. Vous devriez également envisager d'activer strict mode.

#!/usr/bin/perl 

use strict; use warnings; 

use XML::Simple qw(:strict); 
use Data::Dumper; 

my $x = XMLin(\*DATA, KeepRoot => 1, ForceArray => 1, KeyAttr => ['the']); 

print XMLout($x, KeepRoot => 1, KeyAttr => ['the']); 

__DATA__ 
<this> 
<that the="other">This that and the other</that> 
</this> 

Sortie:

<this> 
    <that the="other">This that and the other</that> 
</this> 

Answer 3

dans le nouveau fichier xml vous pouvez utiliser experessions régulièrement pour trouver le modèle que vous souhaitez supprimer et remplacer par le modèle que vous voulez, c'est étiquette d'origine.

@ar="xml file"; 
$pat="tag you want to replace"; 
$rep="original tag"; 


foreach $a (@ar) { 
    if ($a =~ s|$pat|$rep|gi; 
    } 

xml fichier nom du manipulateur = @ arr;

Answer 4

Vous pouvez également essayer de rechercher sur l'option rootname. Voir aussi:

How do I remove the <opt> tag in XML::Simple output?