The other day, the vp of engineering at my company asked me if I had written any JAPH's yet... I figured, having worked with Perl for about 6 months, that I was ready for the challenge. The output is should be viewed with a browser: it's my company's logo -- great for brownie points!
#!/usr/bin/perl -w #1|!s[!s"sc-[;s[us open(s0,$0);$s2s0= "";while(<s0>)#$s= #o$s>]0se*][=5[]]- {chomp;if(#/s2_0=~ /^\s*#(?!!)(.*)$/) #e??{!~_()=*|i?[i_ {$s2s0.=$1}} $s2s0 =~s/^\s*#//g;close #)b0sib0s?=*~5|]|i (s0);$s2s00=qq%otx <e>a:c lhiTnfrspbz g1/=-5dw0y\\kmC% ; #_*]e5+b05[!s[ib0# $s2s00=~s/\n//g;#$ $s2s00 #=~#<br>#gi =~s/\s{2,}//g #/s/ #|!s=5|]|i_c[]]|/= ;$s2s0_s=qq%|su0[b e;5=]\${a!#i:-*,~( o_"\%?/)c'+>1% #%s ;$s2s0_s=~s/\n//g; $s2s0_s=~ #s/[a-z] s/\s{2,}//g;$s2s0s #:{,[_(bo'0#|!s=5| ="";$s2s0_ss=-1 #/ ;while ( $s2s00 =~ /(.)/g ){ $s2s000= substr($s2s0_s, ++ $s2s0_ss,1)#$s2s0- ;$s2s0s_s{$s2s000} =$1;}$s2s0_ss=0 #s #]|i_/${s[=:{,[_%b ;while($s2s0) { ++ $s2s0_ss;$s2s00_ = substr($s2s0,0,1); $s2s022=$s2s0s_s { $s2s00_}; $s2s0 =~ #0*ibaie?{e!s0o#|! s/\Q$s2s00_\E//;#s $s2s0s.=$s2s022;if #sb0*ib'o0o#|!sb0o ($s2s0_ss==22){#++ $s2s0s.="\n\n" } } print $s2s0s;#$|=0 #s?b0sib0ose*][b
Feedback would be much appreciated,

joecamel

Replies are listed 'Best First'.
Re: My Very First
by marius (Hermit) on Dec 04, 2000 at 02:01 UTC
    I don't know what's scarier -- the cool code or the fact that your VP of Engineering knows about JAPH's. I'm jealous!

    -marius
      Thanks. Actually he just saw it for the first time and liked it a lot. Then he used a couple of terms I'm not familiar with:

      "wahmbly!" and he mentioned getting "-ve marks" next to obfuscation in my production code.

      Anyone know what that means?

        closest I could come up with was this entry from the jargon file, spelled "womble". I hope that's not what he means. =] About the "-ve marks", who knows. Google turns up nothing on either of those.

        -marius