A little ++ script *gulp*

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?)

#!/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';
[download]

Cheers,
Jered

Comment on A little ++ script gulp Download Code

Replies are listed 'Best First'.
Re: A little ++ script gulp by elbie (Curate) on Aug 06, 2001 at 17:06 UTC
It seems to be printing out just '1' for me. Are you trying to make it print out 'japh'? If so, the print statement can't just print out a '0', it actually has to fail. Keep trying!	[reply]
Re: Re: A little ++ script gulp by jered (Initiate) on Aug 07, 2001 at 00:29 UTC
Er no, it takes a command-line argument. It was `$_=$ARGV[0] and $_ = unpack 'b*', chr`, but I simplified that, so now it doesn't die properly if not given an argument.	[reply] [d/l]