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>&lt;code&gt;</div><div>open my $tap , &quot;&lt;&quot; , &quot;$PathHtdocs&quot;;</div><div></div><div>binmode $tap;</div>
<div></div><div>@cont = split (//, &lt;$tap&gt;);</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 &quot;----&gt; testa valor 
$a:=$cont[$a]&lt;br&gt;\</font><font face="Arial" size="2">n&quot;;</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 &amp; $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 &quot;----&gt; res[$pos]:=1 / 
$r&lt;br&gt;\n&quot;;<br>          
}<br>      }<br>    }<br>  
}</font></div><div><font face="Arial" size="2"></font></div><div><font face="Arial" size="2">&lt;/code&gt;</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 &lt;$fh&gt; 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>[]&#39;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>