El apenas otro pirata informático del Perl, o el JAPH, refiere típicamente a un programa del Perl que imprima el " Apenas otro pirata informático del Perl, " (la coma es el canónico pero se omite de vez en cuando). Los programas cortos de JAPH son de uso frecuente como firmas en los foros en línea, o mientras que la camiseta diseña. La frase o las siglas también se utiliza de vez en cuando (sin el código ) para una firma.

Los programas de JAPH clásico se hacen usar extremadamente métodos ofuscados, en el alcohol de la competencia ofuscada de C. Más recientemente, como el fenómeno ha llegado a ser tan bien conocido, la frase se utiliza a veces en ejemplos ordinarios (sin la ofuscación). El P del JAPH puede también colocarse más recientemente para Perl 6, loro o barros amasados .

La idea de usar los programas minúsculos del Perl que imprimen un de la firma como una firma fue originada por el Randal L. Schwartz, en sus fijaciones al groupe informativo comp. (De hecho, muchos del JAPHs abajo son el suyo.)

Ejemplos

Programa de JAPH sin la ofuscación:

lang=" del " de la impresión; Apenas otro, \ n" del pirata informático del Perl; ;

Encajadura de JAPH en código opaco:

lang=" del $_='987; s/^ (d+)/$1-1/e; ¿$1? eval: print" Apenas otro pirata informático del Perl, " '; eval;

El descifrar JAPH de un literal de cadena transportado :

lang=" del $_=" krJhruaesrltre c un cnP, ohet" ; $_.=$1, s de print$2while (.)/;

El aparecer como si haga algo totalmente sin relación a la impresión JAPH:

lang=" del $ de _ = " wftedskaebjgdpjgidbsmnjgc" ; ¡tr/a-z/oh, tarro de la frase del cuello alto! /; impresión;

Usar solamente las palabras claves (ningunos literales del Perl o la puntuación ):

lang=" del no xor del qx del qq del xor s del srand del registro del exp ord del uc de la longitud de s x x y chr de la impresión el ord para el qw q ensambla el qx atado secundario del uso xor eval internacional del qq q q de la impresión del xor del xor lc eval q m lechuga romana y ord del chr de la impresión para el ne del ABS del qw y abierto ató el maleficio exp qq escalar de la impresión del srand del xor de la referencia y m raíz cuadrada eval lechuga romana del qq y del xor internacional lc de q q y ord del chr de la impresión para el qw x printf cada local de vuelta x y o qq de la impresión s s y undef de q s o xor eval de oct ord lc del chr internacional de la impresión de la referencia del xor del tiempo matanza hex del chdir de la alarma del qw y del foreach el exec y de vuelta s GT sin fractura de la clase

Tomado de perlmonks.org

Usar solamente la puntuación (ningunos carácteres alfanuméricos ): (Escrito por Eric Roode)

lang=" del `del `$=; ¡$_= \ %! ; ($_) = (., $, $, $ \, $", $;, $^, $#, $~, $*, $:, el @%) = ( ¡$! =~/(.)/, $"), $=++; $.++; $_++; $_++; ($_, $ \, $,) = ($~. " $; $/$%$_$ \ $, $: $%", $" &$~, $#,); $, ++ ; $, ++; $^|=$" ; `$_$ \ $, $/$: $; $~$*$%$.$~$*$ {#} $%$; $ \ $" `de $^$~$*.>&$=

(La atribución falta.) El JAPH antedicho trabaja solamente en el Unix y el Unix-como sistemas de .

ASCII-arte (hacer este un trabajo, estar seguro de fijar el tamaño de la consola por lo menos a 120x50): lang=" del j secundario (\ $) {($ P, @_ de $V)=; mientras que ($$P=~s: ^ ():: ¿x) {$V+= ('('eq$1)? - 32: 31 } $V+=ord (substr ($$P, 0.1, " "))- 74} submarino a { mi ($I, $K, $ J, $L)=@_; $I=int ($I*$M/$Z); $K=int ( $K*$M/$Z); $J=int ($J*$M/$Z); $L=int ($L*$M/$Z); $G=$ J-$I; $F=$L-$K; ¿$E= (ABS ($ G)>=abs ($F))? $G: $F; ($E<0) y ($ I, $K)= ($J, $L); $E||=.01; para ($i=0; $i<=abs$E; $i++) {$D-> {$K +int ($i*$F/$E)} - > {$I+int ($i*$G/$E)} =1}} p secundario {$D= {}; $ Z=$z||.01; mapa {$H=$_; $I=$N=j$H; $K=$O=j$H; mientras que ($H) {$q=ord substr ($H, 0.1, " " ); si (42==$q) {$J=j$H; $L=j$H} {$q-=43; $L =$q %9; $J= ($q-$L)/9; $L=$q-9*$J-4; $J-=4} $J+=$I; $L+=$K; a ($I, $K, $J, $ L); ($I, @_ de $K)= ($J, $L)} a ($I, $K, $N, $O)}; my$T; mapa {$y=$_; mapa {$T.=$D-> {$y} ¿- > {$_}? $ \: ''} (- 59.=" \ n"}(- 23.23); print" \ e eval { requerir Win32:: Consola:: ANSI}; ¿$b=$w? “1; 7; ”: " " ; ($j, $u, $s, $t, $a, $n, $o , $h, $c, $k, $p, $e, $r, $l,}/, de C)=split/'Tw*JSK8IAg*PJ*QJ “BA*JQK8I*JC} *QJ \ RI de KUz] BAIJT]”. “} Tn*JQ] wRAI*JDnR8QAU} wT8KT”. “] *JR*DJ@IQ*JPe* del n*JEI*EJR*QJ]”. “JBI/KI} ¿T8@? PcdnfgVCBRcP”. ¿'? ¿*JWe*JD*JPe*JC de ABKV]]}? 8B*JE}; Vq*OJQ/IP ¿“J*JC} /U*OJdU} CWq*OJc8KJ? OU/T*QJP?}*JSe*JCnTe”. “wRAI*J del *JV de QIAKJR}]?}T] *RJcJI3; U] Uq*PMW] WCT*DM*SJ”. 'ZP “PZaUKVgogK9K*QJnT] T] T3o” [Z \ U'. '*OJ “BCB*” DEL *JPKTKK {T]]. 'DMKKJIR h {$ \ = qw (% y @ x) [rand de la internacional 4]; mapa {" del printf; \ e 6)+101-60* ($w ||0); sistema (" cls")if$w; ($A, $S) = ($_, $ _); ($M, @,) = partir “}”; para ($z=256 ; $z>0; $z - =$S) {$S*= $A; p @,} sleep$_ ; mientras que ($_&& ($ z+=$ S) <=256) { p@,}} (" ". " 32} 7D$j" . " $u} OG" . " $s} WG" . " $t", " " . " 24} (" . " IJ$a" . "}QC" . " " de $h}; . " $r", " ¿32}? " . " H$p} FG$e} QG$r". "}ZC" . " $l", " 28} (LC" . " $h}: " . " $c" . " C$k} ZG". " $e" . " dG$r", " 18" . "}(" . " C" )}{h (16, 1.98, 0, 1); hacer de nuevo} el ### #written 060204 cerca @@@@@@@ del #liverpole #@@@@@@@@@@@

Ver también

.