[SP-pm] Write Binary!

[Eden Cardim]

On 4/26/07, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
>
>     # 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 );

acho que esse trecho pode ser só:

$binary_data .= pack('f*', @$line);

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática