Foro - Perl en Español

Hola, tengo un problema y agradecería cualquier ayuda que me pudieran dar. Tengo un archivo de texto del cual me gustaría que se imprimieran sólo las palabras que están entre '""'. Por ejemplo:

Este es un texto de "prueba" para ver si se "imprime" entre "comillas".

Al correr el script sólo imprimiera:prueba imprime comillas

¿Que puedo hacer? Intenté estopero al parecer hace algo diferente a lo que necesito.

Gracias

Bienvenido a los foros de Perl en Español.

El comando split divide la cadena según el separador que indiques. Tienes que refinarlo un poco más.

Si usas split(/"([^"]*)"/, $l); te sacará, separados, los trozos de texto que tienen comillas, de los que no. Luego tendrás que pintar los que tienen las comillas:

Código: Seleccionar todo

#!/usr/bin/perl

$cadena = 'Este es un texto de "prueba" para ver si se "imprime" entre "comillas"';

foreach $texto ( split(/("[^"]*")/, $cadena)) {
    if ( $texto =~ m/"/ ) {
        $texto =~ s/"(.+)"/$1/;
        print "$texto\n";
    }
}

__OUTPUT__
prueba
imprime
comillas

La expresión regular /("[^"]*")/ quiere decir: busca por '"' seguido de cero o más (*) caracteres que no (^) sean '"' y seguidos por un '"' final. Vamos, estamos buscando texto entrecomillado (sin comillas dentro).

Como estamos usando un split, necesitamos que nos devuelva además los separadores encontrados, así que por eso están los paréntesis.

Luego, en el if, usamos una expresión regular para separar los trozos de texto con comillas de los que no la tienen (no tienen caracteres '"').

Si es un texto entrecomillado, las quitamos con el operador s///. Y finalmente lo pintamos.

Claro que... estamos haciendo mucho trabajo para lo que realmente queremos.

Eli Juarez dice: "...me gustaría que se imprimieran sólo las palabras que están entre ""...".

Bueno, pues como tenemos que localizar algo, usaremos expresiones regulares.

Código: Seleccionar todo

#!/usr/bin/perl

$cadena = 'Este es un texto de "prueba" para ver si se "imprime" entre "comillas"';

while ( $cadena =~ m/"([^"]+)"/g ) {   # Mientras en la $cadena existan palabras entrecomilladas
    push @encontradas, $1;             # La guardamos
}

print join(" ", @encontradas);         # prueba imprime comillas

que, de forma abreviada también se puede escribir:

Código: Seleccionar todo

#!/usr/bin/perl
$cadena = 'Este es un texto de "prueba" para ver si se "imprime" entre "comillas"';
# Imprimir -unidas por espacios- todas las palabras entrecomilladas de la $cadena
print join(" ", $cadena =~ /"([^"]+)"/g );