[bcn-pm] JAPH amb nocturnitat (i 3)

[Xavier Noria]

On Monday 16 June 2003 22:42, Tim Allen wrote:

> Un JAPH es un programa que produce la cadena de texto "Just Another
> Perl Hacker,".  Se utiliza en el concurso internacional de
> "obfuscación" de Perl, o sea, para ver quíen en el mundo puede
> producir el programa más dificil de leer, o con la utilización de
> algunas de las caracteristicas del lenguaje menos esperados, o lo que
> sea.  Se atribuye la frase a Randall Schwartz, autor de "Learning
> Perl".

Solo quisiera a~nadir unos pocos links sobre JAPHs:

Aqui esta la definicion de JAPH de FOLDOC:

    http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?japh

En esta pagina de CPAN hay unos cuantos ejemplos:

    http://www.perl.com/CPAN/misc/japh

Aunque ahi los hay de todas las maneras, es tradicion que los JAPHs que 
se usan como signature en mails o mensajes de news tengan lineas de 
igual longitud.

Y este es un mensaje de Randal Swchartz en comp.lang.perl.misc donde 
explica el origen de los JAPHs (como dijo Tim el los origino):

http://groups.google.com/groups?q=just+another+perl+hacker+group:comp.lang.perl.misc&hl=ca&lr=&ie=UTF-8&group=comp.lang.perl.misc&selm=m1hfpvh2jq.fsf%40halfdome.holdit.com&rnum=1

fxn
-- 
$_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$e++,
(split)[.11_09,1.714];$.=qq~~!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
$*=$,-$/;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<012?
"10$_":/^1/?"1$_":$_)for($**($**$%-$//$/),$%-$*,$,*$/,$***$***$*,$***$,
,$"*$@+$**$/,$**$,,$;,$***$***$*,$***$*,$.,$**$",$***$,,$***$***$**$,=>
~~$.,$"*$*,$***$/,$***$,,$,-$.,$"*$@+$**$/,$;*$/**$*,$",$.,++$@+by_fxn)