Foro - Perl en Español

Publicado: **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.

Publicado: **2014-05-09 20:33 @898**

Lo que comentas es la base de los sistemas de plantillas que se usan en muchísimos sitios.

En Perl, hay muchos sistemas de plantillas. El más famoso es Template Toolkit.

Pero, para una cosa sencilla, puedes usar la combinación hash más el operador sustitución, para realizar toda la tarea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/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.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **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

Re: Extraer ciertos campos desde un texto

Re: Extraer ciertos campos desde un texto