This is my first actual japh - previous attempts were just printing my name. It started out compact but then got a bit silly. 

use strict;
s;;\$uhJ;;$==0;eval;eval
join q,,,map{($;=$_)=~s=[\(
use japh
\$]==g;$=-=0b111x2-ord$;;$@=~m;^.{$=}(.);;$1}qw
@toast=qw(bread) ;
$Qdir= chdir( Sort %_);
$Nine= $paQ-> Kill[-9];
$Yum{ Vanilla}++;
($j<=$p == $x+1 )? gmtime( 9, $Weeks);
Loader::Start( $P1, $P2, $Zip) : $?;
grep( 8, \@ARGV);
localtime( Time::Local, $Unclear, 5, $F->{japh});
@;

[download]
s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&

Replies are listed 'Best First'.
Re: First japh - a bit silly
by jdalbec (Deacon) on Sep 04, 2004 at 13:46 UTC
    Two small changes get you the newline (OK, there's an extra space afterwards, but I don't know how to fix that within the parameters of your code). 
    #! /usr/bin/perl -w
use strict;
s;;\$uhJ;;$==0;eval;eval
join q,,,map{($;=$_)=~s=[\(
use japh
\$]==g;$=-=0b111x2-ord$;;$@=~m;^.{$=}(.);s;$1;;}qw
@toast=qw(bread) ;
$Qdir= chdir( Sort %_);
$Nine= $paQ-> Kill[-9];
$Yum{ Vanilla}++;
($j<=$p == $x+1 )? gmtime( 9, $Weeks);
Loader::Start( $P1, $P2, $Zip) : $?;
grep( 8, \@ARGV);
localtime( Time::Local, $Unclear, 5, $zoneinfo , ::F->{japh});
@;

    [download]
[reply]
[d/l]

      Not sure if I've missed the point here, but I can't get that to run without some spurious errors: 

      Possible attempt to separate words with commas at - line 14.
Use of uninitialized value in substitution (s///) at - line 2.
Use of uninitialized value in substitution (s///) at - line 2.

      [download]

      (This is with v5.8.0 on Unix and v5.8.4 on Win2K.)

      I've done another modification to the original, which gets the \n, and removes the silly stuff:

      use strict;
$==0;eval
q;\$uhJ;;$@=~s^\^^\\^;eval
join q,,,map{$=-=0b111x2-ord;$@=~m;^.{$=}(.);;$1}qw
$u ;
Q c S % N Q K Y V < = x ) g 9 W L P P Z : ? g 8 @ l T U 5 2 } 1
$;

      [download]
      s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&
[reply]
[d/l]
[select]

        And a further refinement to compact the data string and remove the "wordy" join and map:

        use strict;
$==0;eval q;
$uhJ;
||$@=~s^\^^\\^&&s&&u;QcS%NQKYV<=x)g9WLPPZ:?g8\@lTU52}1&&&s
%.%$=-=0b111x2-ord$&;$@=~m;^.{$=}(.);;$1%ge&&eval

        [download]
        s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&
[reply]
[d/l]
[select]
        If you don't like the warnings you could change the first line to #! /usr/bin/perl without the -w.
[reply]
[d/l]
[select]

Back to Obfuscated Code