Foro - Perl en Español

por **vicca** » 2012-10-04 15:36 @692

¡Hola!

Quiero sustituir una parte de un XML.

Para ello había pensado en utilizar expresiones regulares y el operador s///.

El problema es que no soy capaz de seleccionar la parte que deseo del texto.

Os muestro un fragmento:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

  <vm name="h3" type="libvirt" subtype="kvm" os="linux">
    <filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
   <mem>128M</mem>
   <if id="1" net="Net2">
      <ipv4>10.0.2.2/24</ipv4>
    </if>
    <route type="ipv4" gw="10.0.2.1">default</route>
    <filetree seq="start-www" root="/var/www">conf/tutorial_ubuntu/h3</filetree>
    <exec seq="start-www" type="verbatim" ostype="system">chmod 644 /var/www/*</exec>
  </vm>
  
  <vm name="h4" type="libvirt" subtype="kvm" os="linux">
    <filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
    <mem>128M</mem>
    <if id="1" net="Net2">
      <ipv4>10.0.2.3/24</ipv4>
    </if>
    <route type="ipv4" gw="10.0.2.1">default</route>    
    <filetree seq="start-www" root="/var/www">conf/tutorial_ubuntu/h4</filetree>
    <exec seq="start-www" type="verbatim" ostype="system">chmod 644 /var/www/*</exec>
  </vm>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Querría seleccionar sólo el nodo vm cuyo atributo name es h3 y para ello he escrito la siguiente expresión regular:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

/(<vm name="h3[\W*\w*\n*]+vm>)/Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El problema es que me selecciona todo el fragmento que os muestro, dado que tanto el nodo que quiero como todo ese código cumplen la condición de la expresión regular.

¿Cómo puedo seleccionarla?

¿Se os ocurre una forma mejor de hacerlo que con expresiones regulares?

Muchas gracias.

#!/usr/bin/perl
use v5.12;
 
my $xml = do { local $/; open F, 'code_32563.xml'; <F> };
 
# Buscamos el inicio de <vm name="h3"
my $inicio = index($xml, '<vm name="h3"');
 
die "ERROR: no encontrado inicio." if $inicio == -1;
 
# Buscamos el final
my $final  = index($xml, '</vm>', $inicio);
 
die "ERROR: no encontrado final." if $final == -1;
 
$final += 5;  # sumamos el tamaño de "</vm>"
 
say "Encontrado en [$inicio, $final]";
 
say substr($xml, $inicio, $final-$inicio);
 
# Sustitución
substr($xml, $inicio, $final-$inicio) = "Hola, pajarota";
 
say "[$xml]";
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora, también lo puedes hacer con una expresión regular:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.12;
 
my $xml = do { local $/; open F, 'code_32563.xml'; <F> };
 
$xml =~ s{<vm name="h3" .+?</vm>}{Hola, pajarota}s;
 
say "[$xml]";
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La clave es usar la opción '/s', para que el comodín '.+' encuentre también los caracteres de fin de línea. Y el modificador '?' hace que la búsqueda se pare en el primer encuentro de '</vm>'.

por **vicca** » 2012-10-08 13:10 @590

¡Muchas gracias!
Al final me he decidido por la "versión" que utiliza la opción index().

Una última pregunta sobre el tema: ¿cómo guardo los cambios en el mismo archivo? ¿Y en otro diferente?

Como verás, el tema de lectura y escritura de ficheros no lo domino mucho... :oops:

¡Gracias de nuevo!

por **explorer** » 2012-10-08 16:51 @743

De la misma manera que has usado open() para leer el archivo, puedes usar otro open() para escribirlo.

La diferencia está en que en el primero usas '<' para indicar lectura, mientras que en el segundo se debe usar '>'.

por **vicca** » 2012-10-09 05:01 @250

Siento no entenderlo pero, ¿podrías explicármelo un poquito más?

Es que además no entiendo muy bien la sentencia con la que lo abrimos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $xml = do { local $/; open F, 'code_32563.xml'; <F> };
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué hacemos ahí? ¿Qué es lo que tengo que hacer para escribir?

Gracias de nuevo y siento molestar tanto.

por **explorer** » 2012-10-09 16:24 @725

La línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$xml=do{local$/;open F,'code_32563.xml';<F>};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

está un poco compactada.

Lo que hace es

ejecutamos un comando do{}, que agrupa una serie de acciones, y devuelve un resultado, a la variable $xml
dentro de do{}, lo primero que hacemos es crear una copia local de la variable especial $/, lo que, de forma efectiva, lo que conseguimos es que declaramos que la lectura de archivos será en modo "absorbedor", no línea a línea, sino todo el archivo será leído de golpe, en la primera lectura
luego sigue un open() normal y corriente. Abrimos el archivo indicado. Como no decimos cómo, por defecto lo abrirá en modo lectura
y finalmente, viene la propia lectura del archivo. Como se ha dicho antes, con esta lectura se lee todo el archivo. Y no se asigna a ninguna variable escalar, sino que sale como resultado de la ejecución del do{} (por ser la última instrucción)
además, por terminar el do{}, el archivo abierto es automáticamente cerrado (hace un close(F))

Ya te avisé que es una línea con mucho intríngulis, dentro.

De forma más casera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $FILE;
 
# Leer un archivo y leer sus líneas
open    $FILE, '<', 'archivo_a_leer';
my @lineas = <$FILE>;
close   $FILE;
 
# Escribir un archivo
open  $FILE, '>', 'archivo_a_escribir';
print $FILE @lineas;
close $FILE;
 
# Leer archivo a una variable escalar
my $texto;
{
    undef $/;
    open      $FILE, '<', 'archivo_a_leer';
    $texto = <$FILE>;
    close     $FILE;
}
 
# Escribir archivo desde una variable escalar
open  $FILE, '>', 'archivo_a_escribir';
print $FILE $texto;
close $FILE;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tienes mucha más información, en tu ordenador, con el comando perldoc -f open, o en la web (traducido en perlfunc). También en perlopentut tienes un tutorial. Y a lo largo de estos foros tienes centenares de ejemplos.

por **vicca** » 2012-10-10 05:38 @276

Muchísimas gracias por la explicación.

Me ha sido muy útil para entenderlo todo

Foro - Perl en Español

Sustituir partes XML

Sustituir partes XML

Publicidad

Re: Sustituir partes XML

Re: Sustituir partes XML

Re: Sustituir partes XML

Re: Sustituir partes XML

Re: Sustituir partes XML

Re: Sustituir partes XML

¿Quién está conectado?