Foro - Perl en Español

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;


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 (aquí, el tercero)
    print $menu->[2], "\n";
}

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";
}

Código: Seleccionar todo

my ( $menu ) = shift;


Perl user escribiste:Hay un pequeño error en tu código. 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.

Código: Seleccionar todo

my ($menu) = @_;

Código: Seleccionar todo

my $menu = shift;

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.

Código: Seleccionar todo

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


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 )

Perl user escribiste: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.
Solo dime que hace eso, y podrás ver lo que te digo.

Perl user escribiste:

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

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

Código: Seleccionar todo

my $foo = $_[0];