[SP-pm] Res: Write Binary!

Ricardo Filipo ricardo_filipo em yahoo.com.br
Quarta Abril 25 13:24:42 PDT 2007


Oi, Henrique. Testei o código abaixo e funcionou perfeitamente. Tem o buffer de entrada e o de saida. Eixprimenta!

Pra rodar basta
teste.pl > figura2.gif

<code src=teste.pl>

#!/bin/perl -w
$figura = "figura.gif";
open(GIF, $figura)         or die "Ops! Erro ao abrir $figura: $!";
binmode(GIF); binmode(STDOUT);      # leitura e escrita, respectivamente          
while (read(GIF, $buff, 8 * 2**10)) { print STDOUT $buff;}

</code>

Abração

----- Mensagem original ----
De: Henrique Rennó <henrique.renno em gmail.com>
Para: saopaulo-pm em mail.pm.org
Enviadas: Quarta-feira, 25 de Abril de 2007 16:55:32
Assunto: [SP-pm] Write Binary!

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.


-- 
Henrique
_______________________________________________
SaoPaulo-pm mailing list
SaoPaulo-pm em pm.org
http://mail.pm.org/mailman/listinfo/saopaulo-pm





__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070425/21e7621c/attachment.html 


Mais detalhes sobre a lista de discussão SaoPaulo-pm