<div><div>Olá Igor!<br><br>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!
<br> </div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div style="">Acredito que uma primeira tentativa seria:<div><br></div><div><code>
</div><div>use strict;</div><div>use warnings;</div><div><br></div><div>my @data = (</div><div> [ 0, 1, 2, 3, 4 ], # linha1</div><div> [ 0, 1, 2, 3, 4 ], # linha2</div><div> [ 0, 1, 2, 3, 4 ], # linhaN</div>
<div>);</div><div><br></div><div>my $binary_data;</div><div>for my $line (@data) {</div><div><br></div><div> # cria o pattern para o pack, baseado no numero</div><div> # de elementos que este possui. perldoc -f pack para
</div><div> # significado de "f"</div><div> my $pack_pattern = "f" x scalar @{$line};</div><div><br></div><div> # armazena o resultado do pack aplicado ao</div><div> # pattern acima, utilizando os elementos da
</div><div> # linha</div><div> $binary_data .= pack( $pack_pattern, @$line );</div><div>}</div><div>open my $fh, ">", "/tmp/output.bin" or die $!;</div><div>binmode($fh);</div><div>print $fh $binary_data;
</div><div>close $fh or warn $!;</div><div></code></div><div><br></div><div>Veja se serve prá alguma coisa, ou chega perto :-)</div><span class="q"></span></div></blockquote></div><br clear="all"><br>-- <br>Henrique