Foro - Perl en Español

por **silva** » 2011-05-24 06:05 @295

¡¡Hola!!

Tengo una cadena de caracteres, la que deseo limpiar :
1) Sacar todo carácter inicial de la cadena que no sea letra.
2) Sacar todos los \t \r \n que se encuentren en el interior o en el final de la cadena.

¿Podrían ayudarme? Gracias

Bienvenido a los foros de Perl en español, silva.

Esto se podría resolver con una expresión regular, pero antes deberías explicar a qué te refieres con "sacar".

¿Quieres extraer saber si están y cuáles son los caracteres extraídos, o quieres que se quiten de la cadena original?

Si tienes algún código hecho, es mejor publicarlo.

por **silva** » 2011-05-24 07:34 @357

Tengo una cadena, de la cual quiero extraer partes como nombres, valores, pero en dicha cadena aparecen al comienzo, entre medio y al final tabuladores, control de líneas. Si bien al hacer un print() de la cadena no aparecen si están presentes:

Sintáxis: [ Descargar ] [ Ocultar ]

my $cadena = '
juana lopes 3459087 24 años
soltero
';
# De dicha cadena quisiera hacer:
($nombre, $documento, $edad ....) = =~ m/ .....(\d+)\s+;
# Pero en dicha cadena aunque no se vean hay \n, \t, espacios, que no me permiten obtener los valores que busco.

Muy agradecido

por **explorer** » 2011-05-24 09:25 @434

Si las posiciones de nombre, documento, edad, están separados por un preciso número de separadores (los tabuladores, por ejemplo), entonces solo tienes que indicarlo en la expresión regular.

Lo que no nos dices es cómo están separados, dónde están los delimitadores, qué delimitadores hay entre cada par de valores...

De todas maneras, con la clase \s+ en las expresiones regulares, puedes indicar que buscas por cualquier espacio en blanco, así que, todo lo demás, será la información que buscas.

por **silva** » 2011-05-25 09:23 @432

La cadena está compuesta por subcadenas de datos importantes que extraer de la misma.
Pero sucede que al inicio, al final y entre medio de dichas SUBCADENAS de datos que quiero extraer aparecen caracteres que no me interesan, como "\r", "\n" y gran cantidad de espacios.

Sintáxis: [ Descargar ] [ Ocultar ]

# Suponiendo la siguiente cadena necesito obtener las variables $nombre y $edad solamente, eliminando todo otro carácter existente:
my $cadena = ' \n espacios \n \n juan Peres \n 24 \n \n ';

Donde $nombre tome SOLO los 10 caracteres que lo conforman, y $edad tome el valor de 24 sin ningún tipo de carácter no numérico o espacio.

Muy agradecida.

por **panterozo** » 2011-05-25 12:17 @553

Hola Silva:

Yo lo hice así...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cadena = '  \n                           \n  \n juan Peres \n  24  \n \n ';
print "\nCadena Original:\n-->".$cadena."<--\n";
$cadena =~ s/\\n//g;
$cadena =~ s/\\r//g;
print "\nCadena sin los caracteres \\n \\r:\n-->".$cadena."<--\n\n";
if($cadena =~ /((\w+)[ ]+(\w+)?)[ ]+(\d+)/){
        print "Nombre: ".$1."\nEdad: ".$4."\n";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

donde $1 es el nombre y el apellido (si tiene). Claro está que se acomoda a la cadena principal, pero cuando se hace una expresión regular para obtener los datos hay que tener mucho cuidado.

Espero sirva
¡¡¡Saludos!!!

por **panterozo** » 2011-05-25 12:26 @560

Viendo el mensaje anterior, y para utilizar una expresión regular similar, se le quitan los \n \r \t que pueda presentar el string...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cadena = '    
juana lopes  3459087  24 años   
soltero   
  '; 
my $fh = undef;
open($fh,"<",\$cadena);
my $aux = '';
while(<$fh>){
        $_ =~ s/\n//g;
        $_ =~ s/\t//g;
        $_ =~ s/\r//g;
        $aux .= $_;
}
print $aux;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pasando el string a un array...

o directamente, sin pasarlo a un array...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cadena = '    
juana lopes  3459087  24 años   
soltero   
  '; 
$cadena =~ s/\n//g;
print $cadena;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Web útil

¡¡¡Saludos!!!

por **explorer** » 2011-05-25 13:35 @608

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Modern::Perl;                       # somos modernos
use utf8;                               # este programa está escrito en utf8
#use autodie;                           # es mejor morir que regresar con deshonor (proverbio Klingon)
 
my $cadena = "    \n           juana lopes  3459087  24 años \n soltero     \n   \n";
 
my ($nombre, $id, $edad, $estado)
    = $cadena =~ m/\s+ ([\w\s]+?) \s+ (\d+) \s+ (\d+) \s+ años \s+ (\w+)/x;
 
say "[$nombre, $id, $edad, $estado]";
 
__END__
[juana lopes, 3459087, 24, soltero]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La expresión regular tiene activada la opción /x para escribirla con espacios y que sea más fácil de leer.

Los paréntesis de captura, guardan cada captura y la envían a las variables que declaramos con el my().

"\s+" se "come" todos los espacios en blanco. Eso incluye a "\n", "\r" y "\t". Mientras, "\w" busca por caracteres alfanuméricos, y "\d" por caracteres numéricos.

Un valor fundamental es el de la palabra "años", que la exp. reg. usará para hacer coincidir el resto de los campos.

La exp. regular no está optimizada, por lo que no valdría para procesar grandes volúmenes de información (llevaría mucho tiempo). Haría falta un poco más de información de la entrada. Por ejemplo, si supiéramos que los campos interesantes comienzan todos ellos siempre en las mismas columnas.

por **panterozo** » 2011-05-25 16:10 @715

explorer escribiste:es mejor morir que regresar con deshonor (proverbio Klingon)

Y la opción /x, que no la conocía, genial

por **erv-Z** » 2011-05-25 17:32 @772

Aquí mi versión, solo con un patrón distinto a la de explorer.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my $string = "    \n    \r JuanA loPes 
 3459087  24
 años \n 
soltero    
 \n   \n";
 
 
my ($nombre, $id, $edad, $status) = $string =~ m/(?i)(?:[^\w]+)(\w+\s\w+)(?:[^\d]+)(\d+)\s+(\d{1,3})(?:[^años]+)años(?:[^\w]+)(\w+)(?-i)/;
 
print "$nombre, $id, $edad, $status"."\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Extraer tabuladores de cadena

Extraer tabuladores de cadena

Publicidad

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

Re: Extraer tabuladores de cadena

¿Quién está conectado?