<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">Oi, Henrique.<br>Talvez o que vc precise seja o modulo Storable. Veja:<br><span><a target="_blank" href="http://search.cpan.org/%7Eams/Storable-2.16/Storable.pm">http://search.cpan.org/~ams/Storable-2.16/Storable.pm</a></span><br><br>Senão basta escrever os dados binários no arquivo.<br>Abaixo uma matriz 5x5 com dados zero. Confira:<br><br><code><br>for($i=1;$i<5;$i++){for($j=1;$j<5;$j++){$matriz[$i][$j]=0;}}<br>open (BINARIO, ">arq.bin"); binmode(BINARIO);<br>for ($i=1;$i<5;$i++){for($j=1;$j<5;$j++){print BINARIO $matriz[$i][$j];}}<br></code><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Henrique Rennó
<henrique.renno@gmail.com><br>Para: saopaulo-pm@mail.pm.org<br>Enviadas: Quinta-feira, 26 de Abril de 2007 11:19:05<br>Assunto: Re: [SP-pm] Write Binary!<br><br>Na verdade o que estou querendo fazer é escrever os valores de uma matriz 2D em um arquivo binário como uma seqüência única de valores. Por exemplo, em C, se eu definir uma matriz 2D float usaria o fwrite da seguinte forma: fwrite(matriz, sizeof(float), N, fpointer) onde N é igual a número total de elementos na matriz e fpointer o ponteiro para o arquivo. Não achei em perl uma função para escrever a matriz em um arquivo no modo binário.
<br><br><div><span class="gmail_quote">On 4/25/07, <b class="gmail_sendername">Eden Cardim</b> <<a rel="nofollow" target="_blank" href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On 4/25/07, Henrique Rennó <<a rel="nofollow" target="_blank" href="mailto:henrique.renno@gmail.com">henrique.renno@gmail.com</a>> wrote:<br>> Como posso escrever um arquivo binário em perl??? Procurei bastante mas não<br>> achei algo semelhante à opção "b" do fopen em C. Tentei o binmode mas não dá
<br>> certo. Quando o dado é escrito no arquivo (com print ou write) ele fica em<br>> texto puro mesmo. Tentei usando o sysopen (escrevendo com syswrite) e<br>> passando a opção O_BINARY mas o resultado é o mesmo.
<br><br>Acho que não entendi direito, se você está escrevendo texto no<br>arquivo, você vai obter texto como "resultado", independentemente de<br>C< binmode > estar ativado no filehandle. As diferenças entre usar C<
<br>binmode > ou não é explicada em C< perldoc -f binmode >.<br>Porém, suspeito que você está querendo ver como fica a representação<br>interna dos caracteres em binário... é isso? Se for, use a função C<<br>pack>: C< perldoc -f pack >.
<br><br></blockquote></div><br>-- <br>Henrique
<div>_______________________________________________<br>SaoPaulo-pm mailing list<br>SaoPaulo-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></div></div><br></div></div><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ </body></html>