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 <[email protected]>
> 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
> [email protected]
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
Tiago B. Peczenyj
Linux User #405772
http://about.me/peczenyj
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
