Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

The Lighter Side of Perl Culture (Part II): JAPH

by eyepopslikeamosquito (Canon)
on Dec 05, 2004 at 06:34 UTC ( #412464=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        print "Just another Perl hacker,"
    
  2. or download this
    From merlyn@iwarp.intel.com (Randal Schwartz) 1 Feb 90 22:28:58 GMT
    @a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@
    +a{1..4}";
    
  3. or download this
        print STDOUT q
        Just another Perl Hacker,
        unless $spring
    
  4. or download this
    $Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacke
    +r,:-);
    s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;
    
  5. or download this
    perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    + * *
             / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
    + / / 
             % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
    + %;
             BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n"
    +)}'
    
  6. or download this
    map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;        
    print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
    
  7. or download this
    $;                                   # A lone dollar?
    =$";                                 # Pod?
    ...
    {Just=>another=>Perl=>Hacker=>}      # Bare block?
    =$/;                                 # More pod?
    print%;                              # No right operand for %?
    
  8. or download this
    Being the one who has given several talks about Japhs, I've decreed
    that a Japh uses the following rules:
    ...
      - It doesn't print anything else.
      - The program uses at most 4 lines, each line at most 80 characters.
      - It uses obscure or surprising syntax.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://412464]
Approved by davido
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2015-07-04 13:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls