PerlBFinterprer.pl

#!/usr/bin/env perl -w

use common::sense;
use autodie;

my $p = 0;
my $lim = 5000;
my @a = (1..$lim);
my @loop;
my $s = 0;

for my $cnt (1..$lim){
    $a[$cnt] = 0;
}

open my $bf, "<", $ARGV[0];
my @data = split //, <$bf>;

foreach my $i (@data){
    given ($i){
        when ($i eq '+') {$a[$p] = -1 if ($a[$p] == 255); $a[$p]++;}
        when ($i eq '-') {$a[$p] = 256 if ($a[$p] == 0); $a[$p]--;}
        when ($i eq '>') {$p = -1 if ($p == $lim); $p++;}
        when ($i eq '<') {$p = $lim + 1 if ($p == 0); $p--;}
        when ($i eq ','){
            $a[$p] = getchar();
        }
        when ($i eq '.'){
            print chr $a[$p];
        }
        when ($i eq "[") {
            push (@loop, $s);
        }
        when ($i eq "]") {
            if ($a[$p] != 0) {
                $s = $loop[scalar(@loop) - 1];
            }
            else {
                pop @loop;
            }
        }
    }
}
print "\n";

sub getchar{
    sysread STDIN, my $buf, 1;
    return (ord($buf));
}