Foro - Perl en Español

por **rithchard** » 2010-04-19 12:09 @548

Saludos a todos a este estupendo foro;

Quisiera recurrir a ustedes para sacarme de un duda ;D

El problema surge cuando tengo una cadena de texto, y quisiera buscar strings y guardarlos en un array, pero los patrones de búsqueda que estén entre []. Ejemplo, [hola],[hola2], o sea, todo lo que esté dentro de [], y los que lo encuentre los guarde en un array.

Gracias.

supongamos que tenemos la variable $cadena.

$cadena='[hola],[hola2],[perl],[hola],[hola2],[perl]';

yo rompería la cadena usando la función split() con el texto que se repite ],[

my @data = split('],[', $cadena);

Ahora me quedan dos elementos con dos caracteres demás.
el primero: $data[0] (le sobra [ )
el ultimo: $data[$data-1] (le sobra ] )

y a cada uno le debo quitar el carácter que le sobra.

Y ahora podría recorrer los elementos que he sacado de la cadena usando un foreach()

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach(@data)
{
print($_);
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y bueno, así lo haría yo...

por **rithchard** » 2010-04-19 15:09 @673

No sé si me entendieron.

Leo un archivo.txt. El contenido del archivo puede ser este:
"hola como [estan] amigos de perlenespañol, [saludos] a todos del [foro]"

Lo almaceno en un array. Ahí estoy plantado...

Quiero que saque todas las strings de archivo.txt que contengan palabras que estén dentro de un [], y que lo printee o lo guarde en un array, para que luego lo pueda printear.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print$encontrados[2];# foro 
print$encontrados[0];# que sería la primera que encontró.Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Disculpa por las molestias.

por **charlygarcia** » 2010-04-19 17:00 @750

MI estimado amiguito

eso ya es otra pregunta.....

por **explorer** » 2010-04-19 17:09 @756

rithchard, lo que pasaba es que pusiste la pregunta en el foro avanzado. Y mi respuesta estaba acorde a la dificultad del foro.

Aquí, en el básico, la respuesta es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $cadena = 'hola como [estan] amigos de perlenespañol, [saludos] a todos del [foro]';
 
my @encontrados = $cadena =~ /\[(.*?)\]/g;
 
print "@encontrados\n";
 
__END__
estan saludos foro
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

que, como ves, sí que sigue la solución indicada antes: una expresión regular, escapar los '[' con '\' y usar '/g' para recorrer toda la $cadena.

:wink:

Foro - Perl en Español

Cómo obtener string dentro de una cadena

Cómo obtener string dentro de una cadena

Publicidad

Re: Cómo obtener string dentro de una cadena

Re: Cómo obtener string dentro de una cadena

Re: Cómo obtener string dentro de una cadena

Re: Cómo obtener string dentro de una cadena

Re: Cómo obtener string dentro de una cadena

¿Quién está conectado?