Ajout d'un attribut de valeur incrémenter à chaque balise dans le script en utilisant xml

Question

Je veux ajouter un attribut à chaque balise dans mon xml, qui incrémente utilisant awk, sed, shell perl ou simple cmd

Pour exemple:

<tag1 key="123"> 
    <tag2 abc="xf d"/> 
    <tag3 def="d2 32"> 
    </tag3> 
</tag1> 

J'attends la sortie suivante

<tag1 key="123" order="1"> 
    <tag2 abc="xf d" order="2"/> 
    <tag3 def="d2 32" order="3"> 
    </tag3> 
</tag1> 

Si possible, je ne suis pas à la recherche sur les dépendances (Brindille, LibXML), la manipulation de chaînes pure.

Answer 1

Normalement, vous devriez utiliser un analyseur approprié pour traiter xml. Mais dans awk:

awk 'match($0, /<[^\/>]+/) { \ 
    $0 = substr($0, 1, RSTART+RLENGTH-1) " order=\"" ++i "\"" \ 
      substr($0, RSTART+RLENGTH) \ 
    }; 1' 

Je recherche un tag d'ouverture (sans la partie > ou />) sur chaque ligne. Si trouvé, mettez la chaîne order="i" après, tout en incrémentant i. Le seul 1 sur la dernière ligne exécute toujours l'action par défaut de awk: { print $0 }. J'ai mis à jour l'expression régulière pour travailler sur votre entrée révisée. Il échoue dès que vous avez plusieurs balises d'ouverture sur une seule ligne, etc

Answer 2

J'aime Perl's XML::Twig pour ce genre de chose. Vous devrez l'ajuster pour tout ce que vous faites afin que vous visitiez tous les éléments que vous voulez affecter. Pour gérer les parents avant que les enfants, une file d'attente est probablement ce que vous voulez:

use XML::Twig; 

my $xml = <<'XML'; 
<tag1 key="123"> 
    <tag2 key="1234"/> 
    <tag3 key="12345"> 
    </tag3> 
</tag1> 
XML 

my $twig = XML::Twig->new(
    pretty_print => 'indented', 
    ); 
$twig->parse($xml); 
my @queue = ($twig->root); 

my $n = 1; 
while(my $elem = shift @queue) { 
    next unless $elem->tag =~ /\Atag[123]\z/; 
    $elem->set_att(order => $n++); 
    push @queue, $elem->children(qr/\Atag/); 
    } 

$twig->print; 

La sortie de ce script est:

<tag1 key="123" order="1"> 
    <tag2 key="1234" order="2"/> 
    <tag3 key="12345" order="3"></tag3> 
</tag1> 

Answer 3

Il est assez simple avec XML :: LibXML et une goutte de XPath.

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::LibXML; 

my $counter = 1; 

my $xp = XML::LibXML->new->parse_file('test.xml'); 

foreach($xp->findnodes('//*')) { # '//*' returns all nodes 
    $_->setAttribute('order', $counter++); 
} 

print $xp->toString;