• Publicidad

La función grep funciona con referencias ?

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

La función grep funciona con referencias ?

Notapor monoswim » 2005-04-27 17:52 @786

Hola gente el problema que tengo es que grep me funciona perfecto hasta que lo uso con referencias...checkeen

my @seleccionar = grep {$_nombre} @{$campos};

me devuelve nombre y apellido, cuando en $_nombre solamente está nombre y en @{$campos} si están ambos, pero se supone que solamente me tiene que devolver nombre !!!!

Sin referencia me funcioan perfecto !!!!

Slaudos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Publicidad

Notapor kidd » 2005-04-27 18:55 @830

Hola monoswim:

No tiene porque no funcionar con referencias.

Por ejemplo:
Código: Seleccionar todo
#!/usr/bin/perl -w

use strict;

my @frutas = qw[naranja papaya limon fresa pera piña];

#Referencia para probar
my $ref_fruta = \@frutas;

#Imprimimos las frutas que empiezan con 'p'
print join "\n", grep { /^p/ } @$ref_fruta;


Lo que no comprendo muy bien es lo que quieres hacer con tu grep.


SALUDOS
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor monoswim » 2005-04-28 09:19 @429

Lo que quiero hacer es que yo en una variable tengo la palabra nombre, y en un array referenciado tengo una lista de elementos, quiero ver si la palabra del $ está en la lista o no, si está que lo guarde en un nuevo @

o sea en el $ tengo nombre y en el @ tengo nombre y apelido, quiero que en un @ me guarde nombre. ya que es lo quye hay en el $

Es muy fácil hacerlo pero con la referencia me trae toda la lista del @ y no la que tenga el $

No encuentro el error por ninguna parte !!

Mamá !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Saludos y gracias kidd !
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Ya está !!!!!!!!!!!!!!!!!!!

Notapor monoswim » 2005-04-28 09:22 @432

ya encontré el error !!!!!!!!!!!!!!

Había colocado

my @seleccionar = grep {$_nombre} @$campos;

y era así

my @seleccionar = grep {/$_nombre/} @$campos;

Malditas // !!!!!!!!!!!!!!!!!

Saludos y gracias kidd, tu ejemplo me hizo mover un poco las neuronas !!!!

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor kidd » 2005-04-28 10:40 @486

Jajajajaja....

aún recuerdo esos días en los que usaba mis neuronas :roll:

SALUDOS
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor monoswim » 2005-04-28 10:47 @491

que momentos aquellos he...!!!!!

Ha pasado tanto tiempo....

jajajaja

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron