<from_et><br>Lembrando que no Perl 5.10.0 você pode fazer binarios "portaveis", pode criar o binario em big-ndian ou litle-endian ( <a href="http://pt.wikipedia.org/wiki/Endianamento">http://pt.wikipedia.org/wiki/Endianamento</a> )<br>
</from_et><br><br><div class="gmail_quote">2008/4/28 Márcio Vitor <<a href="mailto:cromo.jml@gmail.com">cromo.jml@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Abaixo exemplo de conversão, usando pack e unpack:<br>
<br>
#!/usr/bin/perl<br>
my $hex = "57";<br>
my $binary = unpack 'B*', pack 'H*', $hex;<br>
my $decimal = unpack 'c*', pack 'H*', $hex;<br>
print "$binary\n$decimal\n";<br>
<br>
Márcio Vitor<br>
<br>
2008/4/28 Márcio Vitor <<a href="mailto:cromo.jml@gmail.com">cromo.jml@gmail.com</a>>:<br>
<div><div></div><div class="Wj3C7c">> Fernando encontrei nos Perlmonks alguns exemplos de como fazer isto,<br>
> aqui ele usou as funções binmode e read para abrir e ler o arquivo de<br>
> forma binária:<br>
><br>
> open my $in, '<', 'file1' or die "fail open 1: $!";<br>
> open my $out, '>', 'file2' or die "fail open2: $!";<br>
> binmode $in;<br>
> binmode $out;<br>
> {<br>
> my $buf;<br>
> print $out $buf while read $in, $buf, 1024;<br>
> }<br>
> close $out;<br>
> close $in;<br>
><br>
> <a href="http://www.perlmonks.org/?node_id=518314" target="_blank">http://www.perlmonks.org/?node_id=518314</a><br>
><br>
> Aqui o é discutido como escrever arquivos binários:<br>
> <a href="http://www.perlmonks.org/?node_id=256520" target="_blank">http://www.perlmonks.org/?node_id=256520</a><br>
><br>
> Espero ter acrescentado alguma coisa.<br>
><br>
> Márcio Vitor<br>
><br>
><br>
><br>
> On Sat, Apr 26, 2008 at 5:57 PM, Igor Sutton <<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>> wrote:<br>
> ><br>
> > On Apr 26, 2008, at 10:44 PM, Fernando Patzlaff wrote:<br>
> ><br>
> > > Pessoal,<br>
> > ><br>
> > > gostaria de saber como faço para ler arquivos binários, bit a bit e<br>
> > > byte a byte?<br>
> > ><br>
> > > e também como faço para escrever neles?<br>
> ><br>
> > perldoc -f binmode<br>
> > perldoc -f read<br>
> > perldoc -f sysread<br>
> > perldoc -f syswrite<br>
> > perldoc perlopentut<br>
> ><br>
> ><br>
> > _______________________________________________<br>
> > Cascavel-pm mailing list<br>
> > <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
> > <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
> ><br>
><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Lindolfo "Lorn" Rodrigues<br>- <a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org">http://lornlab.org</a><br>
- <a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;