Foro - Perl en Español

Bueno, pues el reto (que más que reto es curiosidad) consiste en hacer un programa que muestre su propio código fuente.

NOTA: El código más corto gana.

¿Vale usar módulos?

explorer escribiste:¿Vale usar módulos?

Sí.

Bueno, he encontrado dos soluciones. Dejaremos tiempo para que más gente participe.

Yo tengo también un par de soluciones.

Bueno, la solución obvia es abrir el propio archivo, cuyo nombre está en $0, y luego imprimirlo por líneas... pero no es la única. Otras formas pueden ser la utilización de comandos externos (como cat), pero esa solución no es portátil.

Encontrar la solución más corta implica un conocimiento amplio de la sintaxis de Perl (y de alguna peculiaridad).

Leyendo el archivo:



Usando truquillo:

En efecto, esa es la idea.

Lo que sí podemos es aprovecharnos de una característica muy extraña, en el momento del open(), que es que si le pasamos un gestor de archivo que coincida con el nombre de una variable, abrirá el archivo cuyo nombre esté en esa variable. Por ejemplo:

Entonces, si $0 contiene el nombre del programa actual, podemos hacer

En cuanto a módulos, hay uno especializado en hacer esto: Quine. Su nombre viene de que precisamente se llaman así a los programas que hacen esa tarea.

Un ejemplo:

¡Ja, ja, ja! ¡Cómo me engancha Perl!

Sabía que esto se llamaba Quine, pero si lo ponía le quitaba gracia al asunto.

He estado mirando el módulo y también lee el archivo.

El script más pequeño que saca por pantalla su código al ejecutarlo es el siguiente:



O sea, ¡¡¡un fichero vacío!!!