JAPH ( anglicky Just Another Perl Hacker ) je krátký program v Perlu , který vytiskne řádek Just Another Perl Hacker, (z angličtiny - "Jen další hacker v Perlu ,"; čárka na konci je volitelná).
JAPH jsou klasickým příkladem obtížně čitelného kódu z důvodu efektivity (nebo dokonce efektnosti) programu. JAPH je také uveden jako ukázka flexibility a síly jazyka Perl.
JAPH bez čitelnosti:
print "Jen další hacker v Perlu,\n" ;Včetně JAPH v těžko čitelném kódu:
$_ = '987;s/^(d+)/$1-1/e;$1?eval:print"Jen další hacker v Perlu,"' ; eval ;Dekódování JAPH ze zašifrovaného řetězce:
$_ = "krJhruaesrltre ca cnP,ohet" ; $_ .= $1 , tisknout $2 zatímco s/(..)(.)// ;Vypadá to, že to nemá nic společného s JAPH:
$_ = "wftedskaebjgdpjgidbsmnjgc" ; tr /az/o h , rolák Phrase Jar !/ ; tisknout ;Použití pouze klíčových slov ze syntaxe Perlu:
not exp log srand xor s qq qx xor s x x délka uc ord and print chr ord for qw q join use subtied qx xor eval xor print qq qq xor int eval lc q m cos a print chr ord for qw y abs ne open svázaný hex exp ref y m xor skalární srand print qq q q xor int eval lc qq y sqrt cos a print chr ord for qw x printf every return local x y nebo print qq s s a eval qs undef or oct xor time xor ref print chr int ord lc foreach qw y hex alarm chdir kill exec return y s gt sin sort split # sub j (\$){( $ P , $V ) = @_ ; while ( $$P =~ s: ^ ([()]) :: x ){ $V += ( '(' eq $1 )? - 32 : 31 } $V += ord ( substr ( $$P , 0 , 1 , "" )) - 74 } sub a { my ( $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 ) a ( $ I , $K ) = ( $J , $L ); $E ||= 0,01 ; for ( $i = 0 ; $i <= abs $E ; $i ++ ){ $D -> { $K + int ( $i * $ F /$E) }->{$I+int($i*$G/ $E )} = 1 }} sub p { $D = {}; $ Z = $z || .01 ; mapa { $ H = $_ ; $I = $N = j $H ; $K = $O = j $H ; while ( $H ){ $q = ord substr ( $H , 0 , 1 , "" ); if ( 42 == $q ){ $J = j $H ; $L = j $H } else { $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 , $K ) = ( $J , $L )} a ( $I , $K , $N , $O )} @_ ; moje $T ; mapa { $y = $_ ; mapa { $T .= $D -> { $y } -> { $_ }? $\ : ' ' }( - 59..59 ) ; $T .= "\n" }( - 23 .. 23 ); print "\e[H$T" } $w = eval { vyžadují Win32::Console::ANSI }; $b = $w ? '1;7;' : "" ;( $j , $u , $s , $t , $a , $n , $o , $h , $c , $k , $p , $e , $r , $l , $C ) = split /}/ , 'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J' . 'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\RI' . '}Tn*JQ]wRAI*JDnR8QAU}wT8KT' . ']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*' . 'JBI/KI}T8@?PcdnfgVCBRcP' . '?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ/IP[' . 'wQ}*JWeOe{n*EERk8;' . 'J*JC}/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U/T*QJP?}*JSe*JCnTe' . 'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\]3;U]Uq*PM[wV]W]WCT*DM*SJ' . 'ZP[Z' . 'PZa[\]UKVgogK9K*QJ[\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE' . '[Z\U' . '{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\k*JE+J+J5R5AI*EJ00' . 'BCB*' . 'DMKKJIR[Q+*EJ0*EK' ; sub h { $\ = qw(% & @ x) [ int rand 4 ]; map { printf "\e[$b;%dm" , int ( rand 6 ) + 101 - 60 * ( $w || 0 ); system ( "cls" ) if $w ;( $A , $S ) = ( $_ [ 1 ], $ _ [ 0 ]);( $M , @ ,) = rozdělení '}' ; for ( $z = 256 ; $z > 0 ; $z -= $S ){ $S *= $A ; p @ ,} spánek $_ [ 2 ]; while ( $_ [ 3 ] && ( $ z += $ S ) <= 256 ){ p @ ,}}( "" . "32}7D$j" . "}AG" . "$u}OG" . "$s}WG" . "$t" , "" . "24}(" . "IJ$a" . "}1G$n" . "}CO$o" . "}GG$t" . "} QC" . "$h}" . "^G$e" . "})IG" . "$r" , "32}?" . "H$p}FG$e}QG$r" . "}ZC " . "$l" , "28}(LC" . "" . "" . "$h}:" . "J$a}EG" . "$c" . "}M" . "C$k} ZG" . "$e" . "}" . "dG$r" , "18" . "}(" . "D;" . "$C" )}{ h ( 16 , 1 , 1 , 0 ); h ( 8 , 0,98 , 0 , 0 ); h ( 16 , 1 , 1 , 1 ) ; h ( 8,0 , 0,98 , 0 , 1 ); znovu } ### #written 060204 od #liverpole @@@ @@ #@@@@@@@@@@@Použití pouze interpunkčních znamének (žádné abecední znaky nebo čísla):
`$=` ; $_ =\ % !;($ _ ) = /(.)/ ; $= =++ $| ;( $. , $/ , $, , $\ , $" , $; , $^ , $# , $~ , $* , $: , @% ) = ( $! =~ /(.)(. ).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/ , $" ), $= ++ ; $. ++ ; $. ++ ; $_ ++ ; $_ ++ ;( $_ , $\ , $, ) = ( $~ . $" . "$;$/$%[$?]$_$\$,$:$%[$?]" , $" & $~ , $# ,); $, ++ ; $, ++ ; $^ |= $" ; `$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\ $"$^$~$*.>&$=`