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