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.

Ahora tengo un problema con un ciclo if() y es que en Fortran tienes que poner
IF(condición)
sentencia
ENDIF

pero resulta que he llegado a un punto en el que el programa sólo dice



No sé cómo interpretar la condición.

if ($funcval), es decir, estoy acostumbrado a poner un número mayor, menor que, etcétera; aquí sólo pone si funcval, pero no entiendo cuándo se ejecuta la sentencia dentro del if().

Muchas gracias.

Las comparaciones numéricas y alfanuméricas también existen en Perl como en C [==,>,lg,lt,etc], en este caso especial Perl evalúa solamente si $funcval fué definida, cualquier valor asignado a la variable será considerado afirmativo/verdadero y continuará en el bloque, a tener cuidadillo, es preferible que si $funcval recibe el valor de una función ¿funcval()? evaluarla directamente:

Entendido, sólo se ejecuta si funcval ha sido definida, pero en Fortran no existe esa opción. ¿Se les ocurre alguna forma de hacer lo mismo con Fortran o con otro lenguaje que me sirva de ejemplo para hacer lo mismo con Fortran? Gracias.

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 ''.

Muchas gracias por responder; lo he solucionado con un .TRUE..

IF(funcval==.TRUE.)THEN
npoint=npoin+1
ENDIF

Ahora tengo otro problema y es la siguiente expresión


y no sé a qué se refiere %=; lo he visto antes para hashes pero no es el caso y lo he visto para obtener el módulo pero la expresión era diferente; por ejemplo:

que es el módulo de $ncasos dividido entre 10 pero %= no sé a qué se refiere esta expresión.

Gracias

es lo mismo que


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

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

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

Ups... muy cierto...


Eso porque hago mal uso de defined()

Muchas gracias, sí que trato de leer por mi cuenta pero a veces me surgen dudas y por eso pregunto.

Tengo otra duda.

Sé que shift() saca el primer elemento de un array, pero en la siguiente línea no entiendo muy bien qué hace.


Sé que es una copia de un arreglo a otro. ¿Por qué no usar directamente @destino = @origen?

¿Se declara el arreglo @sta y almacena en el array @sta lo que saca del arreglo con shift()?

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