Foro - Perl en Español

por **coltx** » 2014-05-09 20:03 @877

Estimados,

Tengo la siguiente consulta: necesito saber cómo puedo extraer ciertos campos desde un texto que se encuentren dentro de los caracteres '<-' y '->', y luego reemplazarlos por valores. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

 "Hola mi nombre es <-CampoNombre-> y tengo <-Edad-> años,

  mis padres son <-NPapa-> y <-MPapa->"Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Saludos y desde ya muchas gracias.

#!/usr/bin/perl
use v5.14;
use File::Slurp;
 
my $archivo = read_file('kk.txt');
 
my %reemplazos = (
    'CampoNombre' => 'JoseJuan',
    'Edad' => '23',
    'NPapa' => 'JoseJuan Papa',
    'MPapa' => 'La mamá',
);
 
while (my($key, $valor) = each %reemplazos) {
    $archivo =~ s/<-$key->/$valor/g;
}
 
print $archivo;         # "Hola mi nombre es JoseJuan y tengo 23 años,
                        #  mis padres son JoseJuan Papa y La mamá"
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **coltx** » 2014-05-10 14:52 @661

Muchas gracias, explorer, revisaré lo que me indicas.

Foro - Perl en Español

Extraer ciertos campos desde un texto

Extraer ciertos campos desde un texto

Publicidad

Re: Extraer ciertos campos desde un texto

Re: Extraer ciertos campos desde un texto

¿Quién está conectado?