[Cascavel-pm] Arquivos binários - binary files

Márcio Vitor cromo.jml em gmail.com
Segunda Abril 28 07:17:25 PDT 2008


Abaixo exemplo de conversão, usando pack e unpack:

#!/usr/bin/perl
my $hex = "57";
my $binary = unpack 'B*', pack 'H*', $hex;
my $decimal = unpack 'c*', pack 'H*', $hex;
print "$binary\n$decimal\n";

Márcio Vitor

2008/4/28 Márcio Vitor <cromo.jml em gmail.com>:
> Fernando encontrei nos Perlmonks alguns exemplos de como fazer isto,
>  aqui ele usou as funções binmode e read para abrir e ler o arquivo de
>  forma binária:
>
>  open my $in,  '<', 'file1' or die "fail open 1: $!";
>  open my $out, '>', 'file2' or die "fail open2: $!";
>  binmode $in;
>  binmode $out;
>  {
>   my $buf;
>   print $out $buf while read $in, $buf, 1024;
>  }
>  close $out;
>  close $in;
>
>  http://www.perlmonks.org/?node_id=518314
>
>  Aqui o é discutido como escrever arquivos binários:
>  http://www.perlmonks.org/?node_id=256520
>
>  Espero ter acrescentado alguma coisa.
>
>  Márcio Vitor
>
>
>
>  On Sat, Apr 26, 2008 at 5:57 PM, Igor Sutton <igor.sutton em gmail.com> wrote:
>  >
>  >  On Apr 26, 2008, at 10:44 PM, Fernando Patzlaff wrote:
>  >
>  >  > Pessoal,
>  >  >
>  >  > gostaria de saber como faço para ler arquivos binários, bit a bit e
>  >  > byte a byte?
>  >  >
>  >  > e também como faço para escrever neles?
>  >
>  >  perldoc -f binmode
>  >  perldoc -f read
>  >  perldoc -f sysread
>  >  perldoc -f syswrite
>  >  perldoc perlopentut
>  >
>  >
>  > _______________________________________________
>  >  Cascavel-pm mailing list
>  >  Cascavel-pm em pm.org
>  >  http://mail.pm.org/mailman/listinfo/cascavel-pm
>  >
>


Mais detalhes sobre a lista de discussão Cascavel-pm