Ola<div><br></div><div>estou com preguiça de analisar o seu codigo todo mas tenho algumas observaçoes</div><div><br></div><div>1) o seu metodo de leitura esta errado. Vc esta ignorando o resto da linha, os outros caracteres.</div>

<div><br></div><div>eu faria assim:</div><div><br></div><div><div>sub getchar{</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>sysread STDIN, my $buf, 1;</div><div>        return (ord($buf));</div>
<div>
}</div><div><br></div><div>2) ao inves de fazer</div><div><br></div><div>foreach ...</div><div>   when (condicao que parece um if)</div><div><br></div><div>faça</div><div><br></div><div>foreach ... {</div><div>   my $i = ...</div>

<div>   given($i){ </div><div><br></div><div>     when('+'){ }</div><div><br></div><div>  }</div><div>}</div><br><div class="gmail_quote">2013/1/11 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><div dir="ltr">
Ola mongens,<br><br>Como alguns sabem eu estava tentando fazer um interpretador para brainfuck em Perl.<br><br>Portanto segue o que consegui ate agora: <a href="http://pastebin.com/gJKizdYS" target="_blank">http://pastebin.com/gJKizdYS</a><br>


<br>Um "script brainfuck" para testarem, ele converte letras munusculas para maiusculas: <a href="http://pastebin.com/kzMMpUsA" target="_blank">http://pastebin.com/kzMMpUsA</a><br><br>Deve ser executado assim: perl <a href="http://mybf.pl" target="_blank">mybf.pl</a> bf.b<br>


<br>Mas estou com problemas. Toda vez que executo me retorna :  Can't use when() outside a topicalizer at <a href="http://mybf.pl" target="_blank">mybf.pl</a> line 36, <> line 1.<br><br>Alguem sabe o que esta acontecendo, e pode me ajudar.<br>


<br>Desde já, grato.<br><br>Att<br>                                       </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>


<br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</div>