Olá,<div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div bgcolor="#ffffff">
<div> </div>
<div><font face="Arial" size="2">(é um código totalmente grosso..mas
funfa..rsrs)</font></div></div></blockquote><div></div><div>Então ai vai uma sugestão então:</div><div></div><div><code></div><div>open my $tap , "<" , "$PathHtdocs";</div><div></div><div>binmode $tap;</div>
<div></div><div>@cont = split (//, <$tap>);</div><div></div><div>@byt = (1,2,4,8,16,32,128);</div><div></div><div><font face="Arial" size="2">my @res;<br></font></div><div><font face="Arial" size="2"></font></div><div>
<font face="Arial" size="2">$res[$_] = 0 for (0 .. $n * 8);</font></div><div><font face="Arial" size="2"></font></div><div><font face="Arial" size="2">my $pos=0;<br></font></div><div><font face="Arial" size="2"></font></div>
<div><font face="Arial" size="2">for my $a (1 .. $n + 1){ <br></font></div><div><font face="Arial" size="2"></font></div><div><font face="Arial" size="2"> </font><font face="Arial" size="2"> print "----> testa valor
$a:=$cont[$a]<br>\</font><font face="Arial" size="2">n";</font></div><div><font face="Arial" size="2"> </font></div><div><font face="Arial" size="2"> $val = ord ( $cont[$a]); </font></div><div><font face="Arial" size="2"> </font><font face="Arial" size="2"><br>
if( $val ){ # todo if testa contra zero</font></div><div><font face="Arial" size="2">
for my $k ( 0 .. 7) {</font></div><div><font face="Arial" size="2">
my $pos= 8 * ($a-1) + $k + 1;<br>
my $ord = $val; <br>
if( $val & $byt [$k] )
{</font></div><div><font face="Arial" size="2"> </font></div><div><font face="Arial" size="2">
$res[$pos]=1;<br>
$r = ver_conteudo( $val, $byt[$k]);</font></div><div><font face="Arial" size="2"> </font></div><div><font face="Arial" size="2"> print "----> res[$pos]:=1 /
$r<br>\n";<br>
}<br> }<br> }<br>
}</font></div><div><font face="Arial" size="2"></font></div><div><font face="Arial" size="2"></code></font></div></div><div></div><div>Especialmente usar um scalar como filehandle e for mais limpos são coisas que eu acho que deixa o codigo bem mais legivel. Isso é uma sugestão só ;).</div>
<div>Também não sou grande fã de variaveis temporarias.</div><div>No caso como o arquivo é binario, colocar o filehandle entre <$fh> carrega ele todo no split da atribuição lá.</div><div>Eu não rodei as mudanças, mas é mais para dar uma ideia.</div>
<div></div><div>[]'s</div><div></div><div>ps: um plugin no gmail para editar codigo em listas seria sensacional. \o/</div><div></div><div>-- <br></div>____________________________<br>Frederico Recsky<br>Linux User: #253572<br>
<a href="http://www.fred.eti.br">http://www.fred.eti.br</a><br><a href="http://www.perl.org.br">http://www.perl.org.br</a><br>