añadir valor incremental en xml usando perl



   AUTOR PREGUNTA

Publicado 07 agosto 2014 - 22:28

¿Existe una forma de añadir un valor incremental al atributo value en cada etiqueta en un xml usando un script en perl?

gracias


¿Tienes la misma pregunta? Yo también

 

Publicado 08 agosto 2014 - 06:45

Si mal no recuerdo debes usar awk

 

Publicado 08 agosto 2014 - 06:45

Usa un parser como awk, te dejo un ejemplo:

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

   AUTOR PREGUNTA

Publicado 08 agosto 2014 - 15:18

Gracias