Foro - Perl en Español

Hola, me llamo Alain y estoy traduciendo un programa de Perl a Fortran, y hay varias cosas que me confunden y he buscado en el foro y en los tutoriales y algunas cosas las he aclarado pero hay otras en las que no encuentro nada.

Esta vez es sobre este trozo de código



Tembién he encontrado esto



Según yo, refp es un array que apunta a fracs. Lo que no entiendo y he buscado por todos sitios es la notación de \$; esta notación la usan para referirse a un puntero, porque dentro del programa que tengo aparece casi siempre $fracs sin '\'.
y otra cosa puede un puntero apuntar a dos variables?

Sé que les parecerá una duda muy simple, y por eso lo pongo en este foro de Perl básico.

Un saludo y gracias.

Hola, bienvenido.

Para mi esta línea lo único que hace es una referencia a otra referencia, podríamos decir


En ese caso mira el uso de las referencias, no sé si se le llame punteros en otros lenguajes a lo que en Perl es referencia.



En todo caso el '\' solo se usa cuando se quiere hacer referencia a un valor...

Bienvenido a los foros de Perl en Español, alain_fyf.

La línea

@refp = (\$fracs);

inicializa el valor del array @refp con una referencia a la variable escalar $fracs.

No sabemos qué contiene $fracs, pero en $refp[0] quedará almacenado una referencia a lo que contiene. Para obtener el valor que contiene $fracs lo escribiríamos así: ${$refp[0]}

Sí que podríamos decir que las referencias son punteros, con la diferencia que la dirección que obtenemos no corresponde con una dirección física de la máquina, sino a una dirección de la máquina virtual Perl.

Muchas gracias, danimera.

¿Y hacer referencia es, en otras palabras, asignar ese valor? ¿O esa dirección de memoria como un puntero, es decir, que en mi caso @refp tendrá el valor de $fracs?

Muchas gracias, Explorer.

Es decir, que @refp tendrá el valor de $fracs, eso lo he entendido, ahora dices que @refp[0] tendrá el valor de $fracs, entiendo que @refp es un arreglo unidimensional pero ¿cuántos elementos tiene? ¿Hay que declararlo antes o puedes meter tantos como quieras para @refp[1],@refp[2]...@refp[n-1] sin declararlos antes?

Ya he aclarado mis dudas en este punto, muchas gracias a los dos.

Dejo esta referencia que encontré sobre punteros por si alguien más aparece por aquí con dudas.
http://ist.marshall.edu/ist334/perl_pointers.html


Pronto regresaré con más preguntas.

Un saludo,

Alain.

No, no las entendido bien o nos hemos explicado mal...

Para que quede más claro: "referencia" == "puntero".

Entonces, @refp = (\$fracs) hará que el array @refp contenga un valor: una referencia (puntero) a la variable $fracs. Estamos, efectivamente, guardando un puntero a la variable $fracs, dentro del array @refp.

Para acceder a los elementos de un array, NO hay que usar la nomenclatura @refp[0], @refp[1].

En Perl, el primer carácter que antecede a una variable, indica el tipo de dato que queremos obtener de esa variable. Si vemos un '$' obtenemos un escalar, mientras que si vemos un '@', obtenemos una lista de valores.

Así, para obtener UN valor de @refp, lo llamamos así: $refp[0]. Si quisiéramos obtener DOS (o más) valores de @refp, lo escribiríamos así: @refp[0,1,2].

$refp[0] contendrá la referencia a $fracs. Para obtener el valor que contiene $fracs lo podríamos escribir como ${ $refp[0] }. Estamos desreferenciando, y como ponemos un '$' delante, estamos indicando que queremos obtener un valor escalar.

Para ver el contenido de las variables, puedes usar el módulo Data::Dumper:



Actualización: enviado antes del último mensaje de alain_fyf.

Vale entonces usar '$' me devuelve el escalar.
Ahora una cosa, supongamos que ahora tengo el arreglo @refp y tengo la expresión

@refp=(\$fracs,\$cltime)

Según entiendo este array está apuntando a dos escalares: $fracs y $cltime. ¿Cómo es posible apuntar a dos sitios? ¿o es que el arreglo tiene dos elementos y cada uno de ellos apunta a un escalar $fracs y $cltime respectivamente? Como dije mi intención es "traducir" esto a Fortran y Fortran no permite arrays punteros así que tengo que hacer un puntero para cada escalar, es decir puede ser que

@refp=(\$fracs,\$cltime) es igual que $refpf=\$fracs y $refpc=\$cltime

En términos prácticos, ¿harían lo mismo, no?

Un array almacena una lista de valores. En el ejemplo que pones, sí, almacena dos referencias a dos escalares.

Me pica la curiosidad de porqué quieres pasar esto a Fortran... Si quieres velocidad, lo pasaría a C o incluso lo podrías hacer desde dentro del propio Perl con el módulo Inline::C.

Si se trata de cálculo matemático, sin duda pensaría en usar PDL, aunque sea muy difícil de aprender.

Es porque otra parte del programa (un simulador) está en Fortran y lo que hace el programa de Perl tenía un simulador muy sencillo, básicamente un tanque; y lo que quiero hacer es más complejo y ya está en Fortran; y era o pasar lo de Fortran a Perl o lo de Perl a Fortran. Lo que usaré del programa de Perl será todo menos el simulador y en lugar de llamar al simulador del tanque llamará al mio

Ya lo he resuelto como Fortran, no acepta arrays de punteros; los he separado en dos punteros apuntando cada uno a su correspondiente Target que así se llaman en Fortran.

Tengo otra duda pero no sé si es el sitio o abrir otro hilo así que si algún moderador ve que no pega en este hilo por favor que lo cambie.

Me he encontrado con esto


Traducido a Fortran es un DO con valor inicial ind=0 hasta un valor final refp con incrementos de 1.

La pregunta es qué es $#refp; sé que $ antes es un escalar pero # estaba reservado para comentarios, ¿qué hace aquí?

Gracias por todo y disculpad la molestia que les estoy dando.