Le juste un autre intrus de Perl, ou le JAPH , se rapporte typiquement à un programme de Perl qui imprime le " ; Juste un autre intrus de Perl, " ; (la virgule est le canonique mais est de temps en temps omise). Les programmes courts de JAPH sont employés souvent comme signatures dans les forum en ligne , ou pendant que le T-shirt conçoit. L'expression ou l'acronyme est également de temps en temps employée (sans code ) pour une signature.
Des programmes de JAPH sont classiquement faits suivre extrêmement des méthodes assombries par , dans l'esprit du concours de C assombri par . Plus récemment, car le phénomène est devenu si bien connu, l'expression est parfois employée dans des exemples ordinaires (sans obscurcissement). Plus récemment le P du JAPH peut également se tenir pour Perl de 6 , perroquet ou roquets .
L'idée d'employer les programmes minuscules de Perl qui impriment un de signature comme une signature a été lancée par le Randal L. Schwartz , dans ses signalisations au newsgroup comp. (En fait, beaucoup du JAPHs ci-dessous sont à lui.)
Exemples
Programme de JAPH sans obscurcissement :
lang=" de " d'impression ; Juste autre, d'intrus de Perl \ n" ; ;
Encastrement de JAPH en code opaque :
lang=" de $_='987 ; s/^ (d+)/$1-1/e ; $1 ? eval : print" ; Juste un autre intrus de Perl, " ; '; eval ;
lang=" de $_=" ; krJhruaesrltre c un cnP, ohet" ; ; $_.=$1, s de print$2while (.)/;
Être évident comme si il fait quelque chose complètement indépendante de l'impression JAPH :
lang=" de $ de _ = " ; wftedskaebjgdpjgidbsmnjgc" ; ; tr/a-z/oh, fiole d'expression de col roulé ! /; copie ;
Utilisation seulement des mots-clés (aucunes coquilles de Perl de ou de la ponctuation ) :
lang=" de pas xor de qx de qq du xor s de srand de notation d'exp ord d'uc de longueur de s x X et chr d'impression l'ord pour le qw q joignent le qx attaché secondaire d'utilisation xor eval international du qq q q d'impression de xor de xor LC eval q m cos et ord de chr d'impression pour le Ne d'ABS du qw y ouvert a attaché le sortilège exp qq scalaire d'impression de srand de xor de la référence y m racine carrée eval cos du qq y du xor international LC de q q et ord de chr d'impression pour le qw X printf chaque qq local de retour de x/y ou d'impression s s et undef de q s ou xor eval d'oct. ord LC du chr international d'impression de référence de xor de temps mise à mort hex de chdir d'alarme du qw y de foreach l'exec y de retour s GT sin fente de sorte
Pris de perlmonks.org
Utilisation seulement de la ponctuation (aucuns caractères alphanumériques de ) : (Écrit par Eric Roode)