[Cascavel-pm] Exibindo imagens gif pelo Perl.

[Gabriel Vieira]

Opa

#!/usr/bin/perl
my $file = "banner.gif";
print "Content-type: image/gif\n";
print "\n";
open( FILE, $file );
binmode STDOUT; # e nao FILE;
print <FILE>;

outra alternativa

#!/usr/bin/perl
my $file = "banner.gif";
print "Location: $file\n\n";
exit;

Abraços ;))

Gabriel Vieira

----- Original Message ----- 
From: "Sandro de Almeida Filho" <sandroalmeidafilho em gmail.com>
To: <cascavel-pm em mail.pm.org>
Sent: Saturday, June 11, 2005 2:19 PM
Subject: [Cascavel-pm] Exibindo imagens gif pelo Perl.


Amigos, meu servidor não me passa estatísticas.

Estava tentando fazer um script para abrir uma imagem "gif", gravar
uma certa informação no meu banco de dados.

Só que, o meu navegador informa que a imagem está com erros.

Algum de vcs pode me dar uma "luz" ?

Eis meu codigo:

#!/usr/bin/perl
my $file = "banner.gif";
print "Content-type: image/gif\n";
print "\n";
open( FILE, $file );
binmode FILE;
print <FILE>;

- Sandro
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm