[SP-pm] Write Binary!

[Henrique Rennó]

Olá Igor!

Valeu pelo seu código mas apenas mudei o meu para fazer a concatenação dos
packeados com formatação "f" e escrever no arquivo assim como você
descreveu. Funcionou certinho! Tão simples!


Acredito que uma primeira tentativa seria:
> <code>
> use strict;
> use warnings;
>
> my @data = (
>     [ 0, 1, 2, 3, 4 ],    # linha1
>     [ 0, 1, 2, 3, 4 ],    # linha2
>     [ 0, 1, 2, 3, 4 ],    # linhaN
> );
>
> my $binary_data;
> for my $line (@data) {
>
>     # cria o pattern para o pack, baseado no numero
>     # de elementos que este possui. perldoc -f pack para
>     # significado de "f"
>     my $pack_pattern = "f" x scalar @{$line};
>
>     # armazena o resultado do pack aplicado ao
>     # pattern acima, utilizando os elementos da
>     # linha
>     $binary_data .= pack( $pack_pattern, @$line );
> }
> open my $fh, ">", "/tmp/output.bin" or die $!;
> binmode($fh);
> print $fh $binary_data;
> close $fh or warn $!;
> </code>
>
> Veja se serve prá alguma coisa, ou chega perto :-)
>


-- 
Henrique
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070426/d45d179c/attachment.html