Foro - Perl en Español

El doble '$', en realidad es una abreviatura de ${ ... }. Es decir, que

es lo mismo que

así que el valor de $val se guarda en la variable referenciada por $refpar ($refpar guarda una referencia a una variable escalar).

Aunque... también podría ser una referencia simbólica...


Todo lo relacionado con referencias lo puedes encontrar en perlref.

No es del todo exacto lo que te ha comentado wanako...

La sentencia

quiere decir: post-incrementa la variable $npoint si la variable $funcval contiene un valor verdadero.

wanako dice que vale conque la expresión esté definida, pero en Perl, una cosa es que esté definida y otra cuál es su valor de verdad.

Por ejemplo, si $funcval vale 0, entonces sí que está definida, pero su valor de verdad es el de falso.

De perlsyn:

Verdad y Falsedad

El número 0, las cadenas '0' y '', la lista vacía "()", y "undef" son todos falso en contexto booleando. Todos los demás valores son verdaderos.

La negación de un valor de verdad, por "!" o "not" devuelve un valor falso especial. Cuando es evaluado como cadena es tratado como '', pero como número, es tratado como un 0.

En Fortran, si sabes que $funcval contiene valores numéricos, te vale con poner en el IF() si el valor de funcval es mayor que 0. Si contiene una cadena de caracteres, te vale con saber si funcval es distinto de ''.

es lo mismo que


Más información en perldoc perlop, sección Assignment Operators.

P.D. Hay que leer un poquito más...

Pues aquí estamos, para responder esas dudas

En my @sta = @{shift;};, primero shift() saca un elemento del array por defecto, que es @ARGV si estamos en contexto de programa, o de @_ si estamos dentro de una subrutina. Por su apariencia diría que es lo segundo, así que lo que estamos haciendo es sacar uno de los argumentos pasados a la subrutina.

Luego, este argumento se interpreta como una referencia a una array. Con el conjunto @{ ... }, extraemos todos los elementos del array y los metemos en @sta.

Esto se hace así para no tener que pasar el array, todos sus elementos, como argumentos a la subrutina. Sólo se pasa la referencia al array como un único argumento. Algo así:

subrutina(\@array);

El porqué luego dentro de la subrutina hace una copia de todos los elementos del array, en lugar de referirse a ellos de forma indirecta, ya es cosa del programador. Quiero decir que también podía haber escrito

my $array_ref = shift;

my $elemento_5 = $array_ref->[4]; # El quinto elemento