<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On Apr 26, 2007, at 5:19 PM, Igor Sutton Lopes wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><BR><DIV><DIV>On Apr 26, 2007, at 4:43 PM, Henrique Rennó wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite">Fala Fred!<BR><BR>Existe um programa muito usado aqui no trabalho chamado GrADS. Basicamente ele é um plotador, um gerador de gráficos. Para ele plotar os gráficos, os valores a serem trabalhados devem estar em um arquivo no formato binário (existem outros formatos que ele lê também mas binário é o mais geral). <BR><BR>Os programas que faço para trabalhar com esses dados estão todos em C que passei dos que estavam em FORTRAN. No FORTRAN deve-se abrir o arquivo passando parâmetros tipo 'stream' and 'unformatted', sem esses parâmetros não dá certo. Já em C seria apenas a opção "b" para o fopen. Para escrever no arquivo, em FORTRAN usa-se o write passando para ele um vetor(M*N) onde N é o número de elementos da matriz de 2 dimensões com M linhas e N colunas na ordem linha 1, colunas 1-N, linha2, colunas 1-N, ..., linhaM, colunas 1-N, etc. Em C não dá certo usando o fscanf ou qualquer outra função que utiliza formatação, já o fwrite funciona como eu havia descrito antes: <SPAN class="q">fwrite(matriz, sizeof(float), M*N, fpointer)</SPAN><BR><BR>Agora estou querendo passar para perl apenas por aprendizado. Tentei o pack com formatação "B*" como o Luis Motta disse e não funcionou. <BR><BR class="khtml-block-placeholder"></BLOCKQUOTE><BR></DIV><DIV>Vamos lá, você quer armazenar um array mais ou menos assim:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>@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>em formato binário, certo?</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Segundo a página manual do fwrite(3):</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> [snip]</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> size_t</DIV><DIV> fwrite(const void * restrict ptr, size_t size, size_t nmemb,</DIV><DIV> FILE * restrict stream);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> [snip]</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> The function fwrite() writes nmemb objects, each size bytes long, to the</DIV><DIV> stream pointed to by stream, obtaining them from the location given by</DIV><DIV> ptr.</DIV><DIV><BR class="khtml-block-placeholder"></DIV>Acredito que uma primeira tentativa seria:<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>for my $line (@data) {</DIV><DIV><BR class="khtml-block-placeholder"></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 class="khtml-block-placeholder"></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 class="khtml-block-placeholder"></DIV><DIV>Veja se serve prá alguma coisa, ou chega perto :-)</DIV></BLOCKQUOTE><BR></DIV><DIV>Bom, prá ler o arquivo binário gerado com este programa, você pode utilizar o seguinte pedaço de código:</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>use Data::Dumper;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>open my $fh, "<", "/tmp/output.bin" or die $!;</DIV><DIV>binmode($fh);</DIV><DIV>my @contents = unpack( "f*", <$fh> );</DIV><DIV>my @data;</DIV><DIV>while (@contents) {</DIV><DIV> push @data, [ splice( @contents, 0, 5 ) ];</DIV><DIV>}</DIV><DIV>print Dumper \@data;</DIV><DIV>close $fh or warn $!;</DIV><DIV></code></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Acredito que sabendo a dimensão N do seu array bidimensional, você consegue até ler os seus arquivos gerados com os outros programas...</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Para alterar o tamanho do array na representação, modifique o terceiro argumento do comando splice() no código acima, modificando-o para o tamanho N e diga-nos o resultado :-)</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Boa sorte!</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></BODY></HTML>