My First JAPH

Being new here, I'm not sure if anyone has done something like this. If this is the case, let me know. Comments and links to similar code are most welcome.

#!/usr/bin/perl
    open(      
   _,$0)                  
  ;for(                 
 <_>){                   
$;=()
=/ /g
 if (!            
   /^#/)            
    ;($;)                
   ?push     
  @;,$;   
 :push                 
@;,-2
 *16;}               
  shift   
  @;;##                
 print           
lc(##
 chr($       
 _+64)
  )for( 
   @;);#        
  print   
$/;##
[download]

Comment on My First JAPH Download Code

Replies are listed 'Best First'.
Re: My First JAPH by liverpole (Monsignor) on Sep 28, 2005 at 14:25 UTC
Very nice. I like the use of '_' as a filehandle, and its pattern is both attractive and deceptive. It took me a while to realize what was going on. I should point out that it's very similar to the idea behind Pithy Japh, but still ++ for coming up with the idea on your own.	[reply]
Re^2: My First JAPH by collin (Scribe) on Sep 29, 2005 at 05:09 UTC
Thank you for pointing this out! I think Pithy Japh is a much better use of this concept. Very nice work and ++ on both accounts.	[reply]
Re^3: My First JAPH by liverpole (Monsignor) on Sep 29, 2005 at 05:17 UTC
Thanks, but I like the layout of yours much better. It's more appealing to look at, and just begs the user to "run me, and figure me out!" The fact you've already gotten 13 ++ votes in only one day just goes to prove how much the other monks like it!	[reply]