Foro - Perl en Español

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

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

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 !

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

Jajajajaja....

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

SALUDOS

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

Ha pasado tanto tiempo....

jajajaja

Saludos