<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. Testei o código abaixo e funcionou perfeitamente. Tem o buffer de entrada e o de saida. Eixprimenta!<br><br>Pra rodar basta<br>teste.pl > figura2.gif<br><br><code src=teste.pl><br><br>#!/bin/perl -w<br>$figura = "figura.gif";<br>open(GIF, $figura) or die "Ops! Erro ao abrir $figura: $!";<br>binmode(GIF); binmode(STDOUT); # leitura e escrita, respectivamente <br>while (read(GIF, $buff, 8 * 2**10)) { print STDOUT $buff;}<br><br></code><br><br>Abração<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: Quarta-feira, 25 de Abril de 2007 16:55:32<br>Assunto: [SP-pm] Write Binary!<br><br>Como posso escrever um arquivo binário em perl??? Procurei bastante mas não achei algo semelhante à opção "b" do fopen em C. Tentei o binmode mas não dá certo. Quando o dado é escrito no arquivo (com print ou write) ele fica em texto puro mesmo. Tentei usando o sysopen (escrevendo com syswrite) e passando a opção O_BINARY mas o resultado é o mesmo.
<br clear="all"><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>