[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