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.
-
- Publicidad
[RETO-CURIOSIDAD] Imprime el código del programa
10 mensajes
• Página 1 de 1
[RETO-CURIOSIDAD] Imprime el código del programa
por Aceitunas » 2014-11-08 13:05 @587
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Publicidad
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por explorer » 2014-11-08 14:38 @651
¿Vale usar módulos?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por Aceitunas » 2014-11-08 14:40 @652
explorer escribiste:¿Vale usar módulos?
Sí.
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por explorer » 2014-11-08 16:27 @727
Bueno, he encontrado dos soluciones. Dejaremos tiempo para que más gente participe.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por Aceitunas » 2014-11-09 12:59 @583
Yo tengo también un par de soluciones.
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por explorer » 2014-11-09 16:04 @711
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).
Encontrar la solución más corta implica un conocimiento amplio de la sintaxis de Perl (y de alguna peculiaridad).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por Aceitunas » 2014-11-09 16:15 @718
Leyendo el archivo:
Usando truquillo:
Using perl Syntax Highlighting
- open IN,$0;print<IN>;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Usando truquillo:
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por explorer » 2014-11-09 21:27 @936
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:
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:
Using perl Syntax Highlighting
- our $ARCHIVO = 'texto.txt';
- ...
- open ARCHIVO; # abre 'texto.txt' en modo lectura
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Entonces, si $0 contiene el nombre del programa actual, podemos hacer
Using perl Syntax Highlighting
- #!/usr/bin/env perl
- open+0;print<0>
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
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:
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por Aceitunas » 2014-11-10 06:23 @308
¡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.
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.
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO-CURIOSIDAD] Imprime el código del programa
por salva » 2014-11-11 05:07 @255
El script más pequeño que saca por pantalla su código al ejecutarlo es el siguiente:
O sea, ¡¡¡un fichero vacío!!!
O sea, ¡¡¡un fichero vacío!!!
-
salva - Perlero nuevo
- Mensajes: 200
- Registrado: 2008-01-03 15:19 @680
10 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados