¿Cómo puedo usar awk o Perl para incrementar un número en un archivo XML grande?

Question

que tienen un archivo XML con la siguiente línea:

  <VALUE DECIMAL_VALUE="0.2725" UNIT_TYPE="percent"/> 

me gustaría incrementar este valor por 0,04 y mantener el formato del XML en su lugar. Sé que esto es posible con un script de Perl o de awk, pero estoy teniendo dificultades con las expresiones para aislar el número.

Answer 1

Si está en una caja con el comando xsltproc, le sugiero que use XSLT para esto.

Para una solución de Perl iría por usar el DOM. Consulte este artículo DOM Processing with Perl.

Dicho eso. Si el archivo XML se produce de una manera algo predecible ingenua como la siguiente podría funcionar:

perl -pe 's#(<VALUE DECIMAL_VALUE=")([0-9.]+)(" UNIT_TYPE="percent"/>)#"$1" . ($2 + 0.4) . "$3"#e;' 

Answer 2

Algo similar a lo siguiente funcionará. Puede necesitar ajustes si hay espacio adicional, pero eso se deja como un ejercicio para el lector.

function update_after(in_string, locate_string, delta) { 
    local_pos = index(in_string,locate_string); 
    leadin = substr(in_string,0,local_pos-1); 
    leadout = substr(in_string,local_pos+length(locate_string)); 
    new_value = leadout+delta; 
    quote_pos = index(leadout,"\""); 
    leadout = substr(leadout, quote_pos + 1); 
    return leadin locate_string new_value"\"" leadout; 
} 

/^ *\<VALUE/{ 
    print update_after($0, "DECIMAL_VALUE=\"",0.4); 
} 

Answer 3

Esta toma de entrada de la entrada estándar, salida estándar:

while(<>){ 
if($_ =~ /^(.*DECIMAL_VALUE=\")(.*)(\".*)$/){ 
    $newVal = $2 + 0.04; 
    print "$1$newVal$3\n"; 
}else{ 
    print $_; 
} 
} 

Answer 4

Si está absolutamente seguro de que el formato de su XML nunca cambiará, que el orden de los atributos es fijo, que efectivamente puede obtener la expresión regular para el número correcto ... luego opte por la solución no basada en el analizador.

Personalmente, utilizaría XML :: Twig (tal vez porque lo escribí; -). Procesará el XML como XML, sin dejar de respetar el formato original del archivo, y no lo cargará todo en la memoria antes de comenzar a trabajar.

código no probado a continuación:

#!/usr/bin/perl 
use strict; 
use warnings; 

use XML::Twig; 

XML::Twig->new(# call the sub for each VALUE element with a DECIMAL_VALUE attribute 
       twig_roots => { 'VALUE[@DECIMAL_VALUE]' => \&upd_decimal }, 
       # print anything else as is 
       twig_print_outside_roots => 1, 
      ) 
     ->parsefile_inplace('foo.xml'); 

sub upd_decimal 
    { my($twig, $value)= @_; # twig is the XML::Twig object, $value the element 
    my $decimal_value= $value->att('DECIMAL_VALUE'); 
    $decimal_value += 0.4; 
    $value->set_att(DECIMAL_VALUE => $decimal_value); 
    $value->print; 
    } 

Answer 5

aquí de gawk

awk '/DECIMAL_VALUE/{ 
for(i=1;i<=NF;i++){ 
    if($i~/DECIMAL_VALUE/){ 
     gsub(/DECIMAL_VALUE=|\042/,"",$i) 
     $i="DECIMAL_VALUE=\042"$i+0.4"\042" 
    } 
} 
}1' file