Foro - Perl en Español

Aquí estaremos para ayudarte, Gonzalo.

De momento, para el cálculo de la letra: http://es.wikibooks.org/wiki/Algoritmo_ ... l_NIF#Perl

Te falta un '1' en el substr(). Revisa el enlace que te pasé.

¿Realmente funciona esta línea?

while ($dni=<@archivo_dni>)

Es un poco... mezclar cosas...

Te ofrezco un sugus si eres capaz de explicar por qué funciona la línea

while ($dni=<@archivo_dni>)

(A mí me ha costado diez minutos encontrar la explicación.)

gonzalos escribiste:A ver, hasta donde entiendo, es una asignación.

Sí, hay un '='.

gonzalos escribiste:Al array @archivo_dni, se le asigna el valor del archivo de texto, y a su vez dentro del bucle a la variable escalar se le asigna el valor del array.

No exactamente... tienes metido un array dentro del operador '<>'. El array sigue siendo un contenedor de una lista de valores, y se los pasas a '<>', que es un operador de Entrada/Salida de ficheros.

gonzalos escribiste:Por lo que al final la variable escalar tendría el valor del archivo.

Cierto, pero... no por lo que has deducido antes... Perl lo hace por otra razón.

gonzalos escribiste:Pd: que conste que soy oceanógrafo, o sea que de informática nada de nada.

Esto no es cosa de informática, sino de un detalle de Perl... que está explicado en solo una línea en toda la enorme documentación de Perl (que es bastante).

El operador '<>' tiene dos comportamientos bien claros. El primero es el más común: leer el contenido del fichero asociado al gestor de archivo que ponemos entre los ángulos. Ejemplo:



Pero hay un segundo comportamiento.

Dentro de perlop, dice:

«Si lo que está dentro de los ángulos no es ni un gestor de archivo ni una variable escalar simple que contenga un nombre de gestor de archivo, typeglob, o referencia a typeglob, se interpreta como un patrón de nombre de archivo para ser expandido, y será devuelta la lista de nombres de archivo o el siguiente nombre de archivo de la lista, dependiendo del contexto.»

Un ejemplo, para verlo mejor:


En este modo de uso, no estamos abriendo ficheros, sino que estamos manejando los nombres de los ficheros. En el ejemplo, estamos buscando todos los ficheros que tengan 'txt' como extensión de su nombre. Pero no miramos su contenido, solo su nombre.

Bueno, pues es justo lo que está pasando en tu programa: el array no es una variable escalar simple, así que la expresión que hay dentro de los ángulos es interpretada como una lista de nombres de ficheros. Y como la asignación es hacia un escalar ($dni), entonces te devuelve un valor cada vez.

Ahora bien... ¿esto es lo que queremos que haga el programa? No se trata de nombres de ficheros, sino de líneas de texto que ya hemos leído antes (unas líneas de programa antes).

Esto es algo así como si tuviéramos en la mano la foto del sonar, mostrando los cuerpos de 4 cetáceos debajo de nuestro barco, y quisieras sacar una fotocopia de esa foto, para empezar a contar cuántos cetáceos hay en la primera foto... ¿no te vale con contarlos en la foto original?

El programa puede quedar así:

No hacemos el chomp(), porque en la operación de $dni con el módulo (%), Perl convierte el contenido de $dni en un número, así que ahí desaparece el carácter de fin de línea que hubiéramos leído.

En esta caso, leemos el fichero dni.txt, línea a línea, y por cada una, calculamos la letra.

Observa también que creamos las variables (las declaramos con my()) a medida de que nos van haciendo falta. Solo hay que recordar que una variable creada con my() dentro de unas llaves '{}' será desconocida (desaparecerá) fuera de esas llaves. En este ejemplo, $dni, $modulo y $letra solo son conocidos dentro del bucle while() (que es el dueño de las llaves).