Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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 musing on the Monastery: (7)
As of 2014-09-22 11:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (189 votes), past polls