Foro - Perl en Español

Buenas, quiera poder modificar un vector por referencia.

Y no me aclaro.

lo estoy intentando pasar con &funcion(\@vector);

pero no consigo trabajar con el contenido de la referencia.

No se si no se debe hacer así, o que. Lo he intentado con @$_, pero no me lo coje bien. sin embargo desde la función si que puedo imprimir el valor de la referencia ARRAY(0x285d0c), pero al contenido de dicho array ya no llego.

Necesito un cable. Gracias

Que tal,

Es muy importante recalcar sobre la sintaxis de tu llamado "&funcion(args)", ya hace mas que invocar a la función con dichos parámetros, la llamada debe de ser "funcion(args) simplemente".

Sobre el paso de referencias, lo estás haciendo de la manera correcta, es decir, \@arr pasa una referencia del array @arr. Sin embargo tu problema está en la función al intentar utilizar los elementos de la referencia.

Código: Seleccionar todo

sub foo {
    my ( $arr ) = @_ # o bien my $arr = shift;
    foreach my $elem ( @$arr ) {
        $elem++;
        print $elem, "\n";
    }
}

@arr = ( 1, 2, 3, 4 );
foo( \@arr ); # o bien [ 1, 2, 3, 4 ];
print "fuera de la funcion:\n";
print "$_\n" foreach @arr;


Es recomendada la lectura de perldoc perlref, perlreftut y podría serte ùtil perldsc.

Saludos,

explorer escribiste:

Código: Seleccionar todo

my @dieta = qw(chocolate pan maiz);
come(\@dieta);

sub come {
    my ( $menu ) = shift;

    # Acceso a todo el vector
    print join "\n", @$menu;

    # Repetimos un elemento (aqui, el tercero)
    print $menu->[2], "\n";
}

Hay un pequeño error en tu código ( ambigüedad ), en la línea de:

Código: Seleccionar todo

my ( $menu ) = shift;


Estas asignando al retorno de shift que es un contexto escalar a un contexto de lista, el intérprete sabe de tu falla y lo corrije haciendo lo correcto, pero eso que haces es incorrecto.

Saludos,

explorer escribiste:Pues no... es correcto...
my es una función. Los paréntesis no indican contexto lista, sino que agrupan los argumentos que le pasamos a my, y sólo son obligatorios si se está declarando más de una variable (ver my() en perldoc). Pero que sea obligatorio no es óbice para que pueda utilizarles incluso con un sólo argumento. Entonces estoy declarando y definiendo un sólo argumento, que recibe el valor del escalar como resultado del shift del @_.
Al menos, lo he ejecutado con los warnings, strict y diagnostics activados y el Perl ni se ha quejado. Y si no se queja, a mi me vale.

Pero por supuesto que eso indica un contexto escalar o lista, si ves BIEN el manual de my, my CREA una o varias ( lista, te lo indica perfectamente ) de variables léxicas, y si tu comentario lo documentas en perldoc perlsub podrás ver que EFECTIVAMENTE es una lista y un contexto lista lo que tienes cuando my tiene () para su creación;

No solo está documentado allí, también como mencionas está documentado en Perl Best Practices ( que está muy trillado ) y en Higher-Order Perl.

Si Perl no te marcó nada es por lo que te dije anteriormente... y si quieres ver que realmente mi comentario es certero puedes ver el código generado por esa expresion con B::Terse.

Qué pasa en este caso?

Código: Seleccionar todo

my ( $a, $b ) = 1;
my @c = undef; # otro caso similar y que tienen la misma validez.
print $b;


Solo dime que hace eso, y podrás ver lo que te digo.

explorer escribiste:Otra cosa es el estilo. Según las últimas prácticas de Damian Comway, lo correcto sería hacer un

Código: Seleccionar todo

my ($menu) = @_;

o

Código: Seleccionar todo

my $menu = shift;

(Página 180 de Perl Best Practices), que es justo como pones en tu ejemplo.
Si yo lo he puesto así, es porque lo he usado durante los últimos años... y claro... es difícil deshacerse de los malos vicios...
Ya está corregido arriba...
(Menos mal que Perl permite hacer correctamente lo incorrecto )

Estilo? muy probablemente, pero el estilo califica la experiencia de un programador también. Recomiendo la lectura de "Effective Perl Programming" por Addison Wesley.

saludos,

No, no intento decirte que estas MAL, te dije que expresarlo de la manera en que lo hacías era incorrecta, la mejor prueba de que funciona es que el intérprete lo hace funcionar, y si pasa eso, entonces como dices no importa.

Mencionaste la palabra "estilo", y bueno, ya lo leíste de un libro, ya lo comenté y la conclusión pues siempre ha sido de generar buen código.

Esa es la finalidad del comentario, no de decirte que estás mal, y que todo lo que has aprendido hasta ahorita está mal y que tienes que volver a reaprender.

Nadie tiene un estilo perfecto, por eso es un "estilo", lineamientos estéticos, ordenados y algunos estándares que nosotros ( y en ocasiones un equipo ) seguimos. De alguna manera es importante aprender la parte del Perl "Idiomático" es decir, un Perl donde sientas que realmente es Perl utilizando bien lo que el lenguaje te provee.

Incluso Guy L. Steele en el fareword de un libro (Effective Java Programming Language) menciona las 3 fase que un programador sigue para aprender algo, y son generalmente: aprender la sintaxis, luego estilo y luego conceptos avanzados e internals.

Y el estilo nunca lo terminas de aprender. Y tampoco intento cambiar tu estilo, si así estás acostumbrado adelante. Eso es mas tolerable que:

Código: Seleccionar todo

my $foo = $_[0];


Saludos,

Bueno, decir que muchas gracias por contestar y tan rápido...

EL problema lo tenia llamando a la función que usaba el '&'.

Saludos.