"Black Perl" es un poema en código escrito utilizando el lenguaje de programación Perl . Fue publicado de forma anónima en Usenet el 1 de abril de 1990, [1] y es popular entre los programadores de Perl [ cita requerida ] como una pieza de poesía de Perl . Escrito en Perl 3, el poema se puede ejecutar como un programa.
Atribución
Cuando se publicó en el grupo de noticias comp.lang.perl, el poema se atribuyó a "una persona que desea permanecer en el anonimato". [1] Sharon Rauenzahn ( de soltera Hopkins), otro poeta Perl, se ha sospechado de ser el autor, pero desde entonces se ha negado la reclamación. [2]
Resultado de la ejecución del programa
Cuando se ejecuta, Black Perl sale en la línea uno, al llegar a la función de salida . El intérprete de Perl analiza las líneas restantes, pero nunca las ejecuta. El programa no produce ninguna salida.
Aunque no se analizará en Perl 5 , se han publicado varias actualizaciones independientes de Black Perl para que se pueda analizar en Perl 5. [3] [4]
"Perla negra"
ANTES: cierre la puerta , cada ventana y salga ; espere hasta el momento . abierto libro de hechizos , estudio , leer ( escaneo , seleccionar , contar con nosotros ); escribir que , imprimir la hexagonal , mientras que cada uno de los relojes , invierten su longitud , escribir de nuevo ; matar a las arañas , pop ellas , cortar , dividir , matar a ellos . desvincular los brazos , cambiar , esperar y escuchar ( escuchar , esperar ), clasificar el rebaño ( luego , advertir a las "cabras" y matar las "ovejas" ); matar a ellos , volcado de escrúpulos , de cambio de las morales , los valores de lado , cada uno ; muere oveja ! morir para revertir el sistema que aceptas ( rechazar , respetar ); siguiente paso , matar al próximo sacrificio , cada sacrificio , esperar , rehacer el ritual hasta que "todos los espíritus estén complacidos" ; hacer que ( "como se suele decir" ) . do que ( * todo el mundo *** necesidad *** participar *** en *** prohibidos ** s * e * x * ) . devolver la última víctima ; cuerpo del paquete ; la salida de la cripta ( tiempo , tiempos y "medio tiempo" ) y cerca de ella , seleccionar ( rápidamente ) y advertir a su próxima víctima ; AFTERWORDS: no se lo digas a nadie . espera , espera hasta el momento ; espere hasta el próximo año , la próxima década ; Duerme , duerme , muere tú mismo , muere al fin
Ver también
Referencias
- ^ a b Wall, Larry; Christiansen, Tom; Orwant, Jon (julio de 2000). Programación de Perl, tercera edición . O'Reilly. pag. 649. ISBN 0-596-00027-8.
- ^ Sharon Hopkins (16 de abril de 1993). "Re: bifurcar un montón de procesos ..." Grupo de noticias : comp.lang.perl . Usenet: [email protected] . Consultado el 5 de diciembre de 2014 .
- ^ jonadab (21 de febrero de 2003). "Black Perl actualizado para Perl 5" . Consultado el 15 de septiembre de 2007 .
- ^ Ovidio (17 de octubre de 2006). "Black Perl Revisited" . Consultado el 15 de septiembre de 2007 .