JAPH

JAPHThịJust another Perl hacker( trung văn:Lánh nhất cá Perl hắc khách) đích súc tả, chỉ nhất cá khả dĩ đả ấn xuất “Just another Perl hacker,” đíchPerlTrình tự.( kết vĩ đích đậu hào hữu thời hầu dã khả dĩ hốt lược. )

JAPH trình tự thông thường hội sử dụng nhất chủng cực đoanHỗn hàoĐích biên tả phương thức, tại giá nhất điểm thượng dữHỗn loạn C ngữ ngônHữu trứ tương đồng đích tinh thần. Tối tảo đích JAPH thị doRandal L. SchwartzPhát biểu tại comp.lang.perlTân văn tổ,Tha tương nhất đoạn khả dĩ đả ấn xuất JAPH đích PerlĐại mãPhóng tại tự kỷ đíchThiêm danh đươngLí.Thử hậu, biên tả JAPH thành vi Perl xã khu đích nhất chủngVõng lạc văn hóa.

Lệ tử

Nhất đoạn hoàn toàn một hữu hỗn hào đích JAPH đại mã:

print"Just another Perl hacker,";

Nhất đoạn khảm nhập JAPH đích hối sáp đại mã:

$_='987;s/^(\d+)/$1-1/e;$1?eval:print "Just another Perl hacker," ';eval;

Biểu diện thượng khán hòa đả ấn JAPH hoàn toàn một quan hệ đích đại mã:

$_="wftedskaebjgdpjgidbsmnjgc";
tr/a-z/oh,turtleneckPhraseJar!/;print;

Nhất đoạn bất hàm nhậm hà tiêu điểm, chỉ sử dụng liễu PerlQuan kiện tựĐích đại mã:

notexplogsrandxorsqq qxxor
sxxlengthucordandprintchr
ordforqw qjoinusesubtiedqx
xor eval xor print qq q q xor int
evallcq mcosandprintchrord
forqw yabsneopentiedhexexp
refymxorscalarsrandprintqq
q q xor int eval lc qq y sqrt cos
andprintchrordforqw xprintf
eachreturnlocalxyorprintqq
s s and eval q s undef or oct xor
timexorrefprintchrintordlc
foreachqw yhexalarmchdirkill
execreturnysgtsinsortsplit

Nhất đoạn chỉ hàm hữu tiêu điểm, bất hàm nhậm hà sổ tự hòa tự mẫu đích đại mã ( doEric Roode(Hiệt diện tồn đương bị phân,Tồn vuHỗ liên võng đương án quán) biên tả, chỉ năng tạiUnixHòaUnix-likeHệ thống thượng vận hành ):

`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$ ",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$ "),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$ "."$;$/$%[$?]$_$\$,$:$%[$?]",$ "&$~,$#,);$,++
;$,++;$^|=$ ";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$ "$^$~$*.>&$=`

Nhất cá canh đoản đích thuần tiêu điểm đại mã, cơ vuCPANThượng đíchEyeDrops(Hiệt diện tồn đương bị phân,Tồn vuHỗ liên võng đương án quán) mô khối sinh thành:

''=~('(?{'.('-)@.)@_*([]@!@/)(@)@-@),@(@@+@)'
^'][)@]`}`]()`@.@]@%[`}%[@`@!#@%[').', "})')

Nhất đoạn hình trạng tượngĐan phong lạc đà( Perl đích tiêu chí ) đíchASCII nghệ thuậtĐại mã, vận hành hậu dã hội thâu xuất JAPH hòa lạc đà tổ thành đích động thái đích ASCII tự phù họa:

#
subj(\$){($
P,$V)=@_;while($$P=~s:^
([()])::x){$V+=('('eq$1)?-32:31
}$V+=ord(substr($$P,0,1,""))-74}suba{
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)and($
I,$K)=($J,$L);$E||=.01;for($i=0;$i<=abs$E;$i++){$D->{$K
+int($i*$F/$E) }->{$I+int($i*$G/$E)}=1}}subp{$D={};$
Z=$z||.01;map{$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)}@_;my$T;map{$y=$_;map{$T.=$D->{$y}
->{$_}?$\:' '}(-59..59);$T.="\n"}(-23..23);print"\e[H$T"}$w=eval{
requireWin32::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';subh{$\=qw(% & @ x)[intrand
4];map{printf"\e[$b;%dm",int(rand6)+101-60*($w
||0);system("cls")if$w;($A,$S)=($_[1],$
_[0]);($M,@,)=split'}';for($z=256
;$z>0;$z-=$S){$S*=$A;p@,}sleep$_
[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,.98,0,0);h(16,1,1,1)
;h(8.0,0.98,0,1);redo}###
#written 060204 by
#liverpole @@@@@@@
#@@@@@@@@@@@

Tham kiến

• Quốc tế C ngữ ngôn hỗn loạn đại mã đại tái

Tham khảo tư liêu

Bổn điều mục bộ phân hoặc toàn bộ nội dung xuất tự dĩGFDLThụ quyền phát bố đích 《Tự do tuyến thượng điện não từ điển》 ( FOLDOC ).

Ngoại bộ liên tiếp

• Cultured Perl: The Elegance of JAPH
• JAPH hợp tập(Hiệt diện tồn đương bị phân,Tồn vuHỗ liên võng đương án quán), nhất cá tạiCPANThượng chỉnh lý đích JAPH hợp tập.
• Obfuscated code(Hiệt diện tồn đương bị phân,Tồn vuHỗ liên võng đương án quán),PerlMonksTrung phân hưởng hỗn loạn đại mã đích tiết điểm, kỳ trung hữu ngận đa JAPH.