Just another JAPH

Not really a JAPH, but obfuscated code. I made it up for a signature so it's rather small and simple. Also it runs fine under strict.
Comments, suggestions and the like are of course welcome. :)

$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split
('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1
[download]

Comment on Just another JAPH Download Code

Replies are listed 'Best First'.

Re: Just another JAPH (Dissection)
by NearO (Scribe) on Aug 12, 2001 at 14:43 UTC

$§ = lc(sub{} ^ " \6 \n");              # $§ is just another variable
                                        # Code reference [CODE(...)]
                                        # XORed with " \6 \n" = cido([
+...])
$§ =~ s/\(.*\)//;                       # Removing the reference infor
+mations.
for (split('', $§)) {                   # Go through the characters.
    $/ = $_;                            # Using the input seperator as
+ temp.
                                        # variable.
    for (5 .. 7) {                      # Do following 3 times...
        ++$/;                           # Increase temporary variable.
    }                                   # (c+3 = f etc.)
    $: .= $/;                           # Append the new character to 
+$:,
                                        # The "format line break chara
+cters"
                                        # variable, which contains by 
+default
}                                       # "\n-"
print $:;                               # Output. ("\n-flgr")
1                                       # Just here to fill the line
                                        # (and to make B::Deparse outp
+ut
                                        # a '???';).
[download]

-- 
arneb@emergency:~ > perl -MO=Deparse -e "(0); #Confusing perl..." 2> /dev/null
'???';
arneb@emergency:~ >

[reply]
[d/l]

Re: Re: Just another JAPH (Dissection)

by flgr (Sexton) on Aug 12, 2001 at 15:58 UTC

$§=lc(sub{}^" \6 \n");$§=~s/$.*$//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1

[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks