Hey. :) I was just playing around and decided this might be of interest; it's my first (official) attempt at obfuscated PERL, so I'd really appreciate any tips on making it more obfuscated or ideas on where to go with it. (Actually this is my first post on perlmonks... er, be gentle?)
Cheers,#!/usr/bin/perl -w use strict; $_= unpack 'b*',chr pop and s/^0/1/ || s/(^1+)0?/'0' x length($1).'1'/e and print ord pack 'b*',reverse$_ or die 'japh';
In reply to A little ++ script *gulp* by jered
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |