And while I'm still here, I'll post yet another japh. The concept behind this one is to be (explicit-)print()-less. So it somehow doesn't fit typical japh form factor standards: 
#!/usr/bin/perl -lp
BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}}s z^z seek DATA,11,$[;($,
=ucfirst<DATA>)=~s x .*x q^~ZEX69l^^q,^2$;][@,xe.$, zex,s e1e
q 1~BEER XX1^q~4761rA67thb ~eex ,s aba m,P..,,substr$&,$.,age
__END__

[download]
Please note that I don't like this one much any more, either.

Replies are listed 'Best First'.
Re: Yet another japh
by jdalbec (Deacon) on Dec 04, 2004 at 04:10 UTC 
    #!/usr/bin/perl -lp
BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}}
=pod
       File handles can be opened to "in memory" files held in Perl
       scalars via:

           open($fh, '>', \$variable) || ..
=cut
s z^z seek DATA,11,$[;($,
=ucfirst<DATA>)=~s x .*x q^~ZEX69l^^q,^2$;][@,xe.$, zex;
#  # ! / u s r / b i n / p e r l   - l p \n
# 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9  0
#print;
#print $,;
#print q^~ZEX69l^^q,^2$;][@,;
s e1e
q 1~BEER XX1^q~4761rA67thb ~eex ;
#print;
#print q 1~BEER XX1^q~4761rA67thb ~;
s aba m,P..,,substr$&,$.,age
__END__

    [download]
    Lots of s///e in this one...

    Exercise for the reader: where did the 1 come from?

[reply]
[d/l]
[select]
      "Lots of s///e in this one..."

      Indeed lots of stringwise C<^>'s which thinking of it now are after all a cheap trick to gain some obfuscation...

[reply]

Back to Obfuscated Code