Content added Content deleted
imported>DrOwl (Perl JAPH) |
imported>mutante mNo edit summary |
||
(One intermediate revision by the same user not shown) | |||
Line 1: | Line 1: | ||
From perldoc: What is a JAPH? |
From perldoc: What is a JAPH? |
||
These are the "just another perl hacker" signatures that |
These are the "just another [[perl]] [[hacker]]" signatures that |
||
some people sign their postings with. Randal Schwartz made |
some people sign their postings with. Randal Schwartz made |
||
these famous. About 100 of the earlier ones are available |
these famous. About 100 of the earlier ones are available |
||
Line 11: | Line 11: | ||
$_=qq#tsee gmx.net#;s#e#s#g;s#[^sw]#c#;s#s#ust#g;s#t#J#e;s#nus#ker# |
$_=qq#tsee gmx.net#;s#e#s#g;s#[^sw]#c#;s#s#ust#g;s#t#J#e;s#nus#ker# |
||
;chop;$c=' ^^^^ ';$c='12319';@c=split/(..)/,'8234130006710523';@d=split"3" |
;chop;$c=' ^^^^ ';$c='12319';@c=split/(..)/,'8234130006710523';@d=split"3" |
||
,$c;chop;' at ';s#(t)ustust# |
,$c;chop;' at ';s#(t)ustust#$1</pre> |
||
$_[0],$_,1,chr(ord(substr$_[0],$_)-shift@c)for$d[0]..$d[1];print"$_[0] |
|||
"; |
|||
Justanother Perl hacker |
|||
</pre> |
|||
[[Category:Hacking]] |
|||
<pre>ldnhxt1# perl |
|||
[[Category:Perl]] |
|||
eval unpack u,'M*"1C/2<P,BDN-"`U+C`A(RLG*3U^>2A+48O82UZ+SME=F%L*"1C+B(G=2HG |
|||
[[Category:Jargon]] |
|||
M+"<Z,D<U4SU<(B%!.T9=5#HF-5(H)2%%/$907$`Z)B5#.E8U4BM@2&`G+EPD$+R(I.P``' |
|||
Just another Perl hacker, |
|||
</pre> |
|||
<pre>ldnhxt1# perl |
|||
print`perldoc -qj`=~/"(j.*)"/ |
|||
just another perl hackerldnhxt1# |
|||
</pre> |
Latest revision as of 12:30, 26 February 2005
From perldoc: What is a JAPH?
These are the "just another perl hacker" signatures that some people sign their postings with. Randal Schwartz made these famous. About 100 of the earlier ones are available from http://www.cpan.org/misc/japh .
these are a few perl JAPH's i found, you can find them and more on the perl mail lists / newgroups
ldnhxt1# perl $_=qq#tsee gmx.net#;s#e#s#g;s#[^sw]#c#;s#s#ust#g;s#t#J#e;s#nus#ker# ;chop;$c=' ^^^^ ';$c='12319';@c=split/(..)/,'8234130006710523';@d=split"3" ,$c;chop;' at ';s#(t)ustust#$1