Just Another Perl Hacker (JAPH) er et kort Perl- skript som viser teksten "Just Another Perl Hacker". Dette er opprinnelig en øvelse i virtuositet brukt som e- postsignatur av noen Perl- hackere .
Det kan være et tilsyn eller ha pedagogisk verdi ved elegant å demonstrere et trekk ved Perl-språket. Perl-samfunnet utvidet deretter JAPHs-feltet med Pugs and Parrot .
JAPH uten ugjennomtrengelig kode :
print "Just another Perl hacker,";Integrer JAPH i en ugjennomsiktig kode:
$_='987;s/^(d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval;Dekoder JAPH fra en bokstavelig streng:
$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;Bruker bare Perl-nøkkelord:
not exp log srand xor s qq qx xor s x x length uc ord and print chr ord for qw q join use sub tied qx xor eval xor print qq q q xor int eval lc q m cos and print chr ord for qw y abs ne open tied hex exp ref y m xor scalar srand print qq q q xor int eval lc qq y sqrt cos and print chr ord for qw x printf each return local x y or print qq s s and eval q s 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 splitBruk bare tegnsetting, uten alfanumeriske tegn :
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=( $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++; $_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++ ;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`