[Rio-pm] BrainFuck Interprer

Tiago Peczenyj tiago.peczenyj em gmail.com
Sexta Janeiro 11 04:59:44 PST 2013


Ola

estou com preguiça de analisar o seu codigo todo mas tenho algumas
observaçoes

1) o seu metodo de leitura esta errado. Vc esta ignorando o resto da linha,
os outros caracteres.

eu faria assim:

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

2) ao inves de fazer

foreach ...
   when (condicao que parece um if)

faça

foreach ... {
   my $i = ...
   given($i){

     when('+'){ }

  }
}

2013/1/11 Aureliano Guedes <guedes_1000 em hotmail.com>

>  Ola mongens,
>
> Como alguns sabem eu estava tentando fazer um interpretador para brainfuck
> em Perl.
>
> Portanto segue o que consegui ate agora: http://pastebin.com/gJKizdYS
>
> Um "script brainfuck" para testarem, ele converte letras munusculas para
> maiusculas: http://pastebin.com/kzMMpUsA
>
> Deve ser executado assim: perl mybf.pl bf.b
>
> Mas estou com problemas. Toda vez que executo me retorna :  Can't use
> when() outside a topicalizer at mybf.pl line 36, <> line 1.
>
> Alguem sabe o que esta acontecendo, e pode me ajudar.
>
> Desde já, grato.
>
> Att
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Tiago B. Peczenyj
Linux User #405772

http://about.me/peczenyj
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20130111/bb115fa9/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm