<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Oi Henrique,<DIV><BR><DIV><DIV>On Apr 26, 2007, at 6:07 PM, Henrique Rennó wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><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 class="khtml-block-placeholder"></DIV></DIV></BLOCKQUOTE><DIV><BR class="khtml-block-placeholder"></DIV>Assim, seguindo a sugestão do Eden, o código final seria:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><code></DIV><DIV>use strict;</DIV><DIV>use warnings;</DIV><DIV><BR class="khtml-block-placeholder"></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 class="khtml-block-placeholder"></DIV><DIV>my $binary_data;</DIV><DIV>$binary_date .= pack("f*", @$_) for @data;</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><BR><BR></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></DIV></BODY></HTML>