[SP-pm] Problemas numa comparação
Frederico Recsky
frederico at gmail.com
Wed Jul 8 17:42:54 PDT 2009
Olá,
>
>
> (é um código totalmente grosso..mas funfa..rsrs)
>
Então ai vai uma sugestão então:
<code>
open my $tap , "<" , "$PathHtdocs";
binmode $tap;
@cont = split (//, <$tap>);
@byt = (1,2,4,8,16,32,128);
my @res;
$res[$_] = 0 for (0 .. $n * 8);
my $pos=0;
for my $a (1 .. $n + 1){
print "----> testa valor $a:=$cont[$a]<br>\n";
$val = ord ( $cont[$a]);
if( $val ){ # todo if testa contra zero
for my $k ( 0 .. 7) {
my $pos= 8 * ($a-1) + $k + 1;
my $ord = $val;
if( $val & $byt [$k] ) {
$res[$pos]=1;
$r = ver_conteudo( $val, $byt[$k]);
print "----> res[$pos]:=1 / $r<br>\n";
}
}
}
}
</code>
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ó ;).
Também não sou grande fã de variaveis temporarias.
No caso como o arquivo é binario, colocar o filehandle entre <$fh> carrega
ele todo no split da atribuição lá.
Eu não rodei as mudanças, mas é mais para dar uma ideia.
[]'s
ps: um plugin no gmail para editar codigo em listas seria sensacional. \o/
--
____________________________
Frederico Recsky
Linux User: #253572
http://www.fred.eti.br
http://www.perl.org.br
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20090708/960e7321/attachment.html>
More information about the SaoPaulo-pm
mailing list