Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

a data-compression exercise

by sethg (Initiate)
on Apr 25, 2000 at 20:53 UTC ( [id://9028]=obfuscated: print w/replies, xml ) Need Help??

First I tried to make code that would compress "Just another Perl hacker," into something that would fit inside a 32-bit integer. Then I tried to make it run from the command line rather than as a script. Then I tried to make it portable between CMD.EXE (the standard Windows NT command line), bash, and tsch. The result:
perl -le"for(@w=(q[dm='r 0rJaa,u0cksthe';dc=967150;dz=~s/d/substrdm,\ (di+=dc%2?4:1)%=16,1ordi-2?'no':'Perl h'/e whiledc>>=1;printdz]))\ {s/d/chr(36)/eg;eval;}#In Windows type this all on 1 line w/o '\'s"

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (2)
As of 2024-04-26 00:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found