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é esto
Using perl Syntax Highlighting
Gracias
Este es un texto de "prueba" para ver si se "imprime" entre "comillas".
#!/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
#!/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
#!/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 );
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados