Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Small first strict obfuscation

by NearO (Scribe)
on Apr 03, 2001 at 15:06 UTC ( [id://69261]=obfuscated: print w/replies, xml ) Need Help??

Ok. I just thought "Hm... What would be a nice signature?". Suddenly my brain answered:"Maybe a little JAPH?"
#!/usr/bin/perl -w use strict;$;="qFHG ZMLGSVI kVIO SZXPVI!\n";@$=('a'..'z', 'A'..'Z');($ +/=join('', @$).",")&&(@$=reverse(@$));$$=(join('',@$)."!");eval("\$;=~y/$$/$//;") +;print $;;

Replies are listed 'Best First'.
Re: Small first strict obfuscation
by idnopheq (Chaplain) on Apr 05, 2001 at 02:38 UTC
    Okay ... need some help here ...

    From Prog. Perl 2nd Edition

    $; is the subscript separator
    $/ is the input record separator
    $$ is the PID ???? [i.e. $$=(join('',@$)."!");]

    What is @$ ? Swap every? PerlMonks search returned nothing.

    Even though I don't get it, the !bleep!-ing thing works as designed!!!!

    Help! TIA
    Dex

    I enjoy unobfuscating obfuscation

      @$ is just another array. It has no special meaning. (Except that use strict dosen't complain about it even if you don't declare it, and it's always in package main)
        THX! So, what is $$ in this context, the PID?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://69261]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (4)
As of 2026-02-18 16:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    hippoepoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.