Fw: [bcn-pm] Buenas

[Xavier Noria]

On Saturday 28 June 2003 18:14, [^^Wizard^^] wrote:

> Gracias por todo Xavier :)
>
> No se porque se me ocurrio "interpretar" tu firma:
>
> print "$_\n";
>
> Curioso el resultado q obtuve:
> >Just another Perl hackerBarcelona Perl Mongers

En principio no hay que a~nadir ese print, el codigo mismo tal cual se 
ejecuta e imprime lo que ha de imprimir. Eso es un JAPH, que es un 
programa ofuscado que imprime "Just another Perl hacker" y se pone en 
las signatures de mensajes de news o mail por tradicion:

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

> >
> :) Una pregunta no te lías con todo eso?? Yo siempre me lio a la hora
> : de
>
> "limpiar" una palabra, más bien como que no se. Y todo ese lio de $_
> $+ $* $/.... No he encontrado en ningun manual de los que tengo como
> funcionan esas variables(¿Realmente son variables?), ni tampoco los
> operadores para "limpiar".

No se muy bien lo que quieres decir con "limpiar".

Esas variables, $*, $|, etc. estan documentadas en perlvar. Se escogen 
porque son muy ruidosas y no se entiende nada. Por ejemplo, en este 
JAPH el numero dos se usa mucho con productos y potencias, por eso lo 
meto en $*, para que cuatro pueda escribirse como $***$*, por ejemplo.

Este JAPH no es nada ingenioso, la idea es simple, pero esta ofuscado y 
quiza puede sorprender ver que sale lo que sale siendo lo unico legible 
el nombre del grupo, cosas barcelonesas, y el "+by_fxn" del final que 
no tienen nada que ver.

Si quereis puedo explicar como funciona en alguna reunion.

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