A peg-legged brainf*ck'd japh

I decided to send myself to hell and write a little obfuscated code for the lunch break.. That turned into "Lets learn more about map" which reminded me that I had the urge to write a half-finished (because that's the way everything is done in the corporate world, no?) BrainF*ck interpreter too. So, the JAPH below, albeit easy, was simply fun to create.

#!/usr/bin/perl -w
use strict;sub bf {shift;my $i=0;my @v;
map{$v[$i]+=m/\+/?1:m/-/?-1:0;print chr 
$v[$i] if(m/\./);}split(//);}my $eval='
sub japh{return $$?":":":"}';my $i = 'm
y $i=0;';my @c = qw($_=" [0-9] ";$_=&ja
ph;$$=&japh;s/:/+++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++
++++++++++++.---------.+++++++++++++++.
--------./g;&bf($_););map{$$.=$_}@c;$_=
$$;s z[$c[1]|]z;zg;eval$eval;eval;
[download]

One4k4 - perlmonks@poorheart.com (www.poorheart.com)

Comment on A peg-legged brainf*ck'd japh Download Code

Replies are listed 'Best First'.
Re: A peg-legged brainf*ck'd japh by cciulla (Friar) on May 27, 2003 at 19:43 UTC
I'd really love to ++ this one, as BF is truly sick and twisted, but I'm getting the following: Modification of a read-only value attempted at C:\japhs\one4k4.pl line 10. FWIW, I'm running ActiveState 5.8.0 on XP. Update: Trying to figure out why it won't work on 5.8... Update the Second: Apparently, 5.8 doesn't like it if you mess with $PROCESS_ID ($$) C²	[reply]
Re: Re: A peg-legged brainf*ck'd japh by one4k4 (Hermit) on May 28, 2003 at 01:26 UTC
To reply to both comments above... I thought I was running 5.8, but I guess I wasn't.. /sigh. I suppose you could use any variable there, $a and just declare it earlier.. etc. Concept is still the same, although I do like the $$ variable for some reason.. I wonder if $^X is read only too. Thanks for the feedback! One4k4 - perlmonks@poorheart.com (www.poorheart.com)	[reply]
Re: Re: Re: A peg-legged brainf*ck'd japh by cfreak (Chaplain) on May 28, 2003 at 13:41 UTC
$; is always fun and you can modify it :) Lobster Aliens Are attacking the world!	[reply]
Re: A peg-legged brainf*ck'd japh by cfreak (Chaplain) on May 27, 2003 at 19:39 UTC
Not bad. It fails with 5.8 though. (Didn't really take the time to find out why) 5.6.1 works fine. Just a side note, while learning about `map` you might want to make use of the fact that it returns an array. Though I suppose not returning from it makes it more obfuscated. :) Lobster Aliens Are attacking the world!	[reply] [d/l]
Re: A peg-legged brainf*ck'd japh by stonecolddevin (Parson) on Jun 03, 2003 at 19:23 UTC
That brainf*ck stuff is nuts!!!	[reply]