Foro - Perl en Español

por **joss** » 2007-11-03 08:19 @388

hola.adios

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($palabra1,$palabra2)=$doc=~m/\'(\w+)\.(\w+)\'/simo;Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Con eso lo que haciamos era guardar en $palabra1-hola y en $palabra2-adios.

Si el texto que quiero guardar está entre comillas simples sería así???

' texto de prueba '

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($palabra1,$palabra2)=$doc=~m/\'\'(\w+)\'\'/simo;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

?????

Saludos

explorer escribiste:A mí sí que me funciona:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting

#!/usr/bin/perl -l

$doc = q/blablablablablablablablablablvalue ' Texto te quiero guardar en una variable ' toblablablabla./;

print $texto;

$palabra = $1 if ($doc =~ /.*value\s'(.*)'\sto.*/);

print $palabra;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Fíjate que en la expresión regular pones que tiene que terminar obligatoriamente por algo con value antes del entrecomillado, y que después, obligatoriamente, debe aparecer algo que empieza por to.

También habría que considerar que los * son avariciosos, por lo que si por alguna razón hay un segundo value más adelante la expresión seguirá hasta él y la expresión no funcionará como queremos, quizá este sea el problema, solamente sería cuestión de cambiar el comportamiento del *, también lo mismo con el que está dentro de los paréntesis de captura:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/.*?value\s'(.*?)'\sto.*/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos

por **later** » 2007-11-15 14:37 @650

Y como podría guardar un email con la expresión regular.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$texto=" Grabar el email [email protected] jajaja";

($email)=$texto=~m{(.*?)@(.*?)};

print$email;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-11-15 14:47 @658

Una de las muchas posibles soluciones:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($email)=$texto=~m{(\w+\@[\w.]+)};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y recuerda que si pones una '@' dentro de comillas dobles, Perl intentará interpolarlo como si fuera un array. Usa comillas simples.

por **later** » 2007-11-15 16:09 @715

De esa forma tampoco me funcionó.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$texto=" Grabar el email [email protected] jajaja";

($email)=$texto=~m{(\w+\@[\w.]+)};

print$email;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He estado mirando más combinaciones pero no me funcionan.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($email)=$texto=~m{(\.*?\@.*?)};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-11-15 18:41 @820

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
$texto=' Grabar el email [email protected] jajaja';

($email)=$texto=~m{(\w+\@[\w.]+)};

print$email;# [email protected]Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Te dije que no pusieras la '@' en texto con comillas dobles... :-D

Tendrás que escaparla con un '\' o, como he hecho yo, entrecomillar simple.

por **later** » 2007-11-16 15:15 @677

Gracias explorer. Me creía que decías en la regex con lo de las comillas dobles, y como no veía ninguna lo dejé como estaba. Sorry.

Pero una cosa: ¿qué pasa si en el texto hay más de un email?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
$texto=' Grabar el email [email protected] jajaja [email protected]';

($email)=$texto=~m{(\w+\@[\w.]+)};

print$email;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Guardar 'texto'

Guardar 'texto'

Publicidad

¿Quién está conectado?