My google fu in failing me. How do I use Perl to serve up an already generated image?
Example:
<http><body><img src="getimage.pl"></body></html>
What goes in getimage.pl?
views:
428answers:
3
+2
A:
WWW FAQs: "How do I output images from a Perl/CGI or PHP script" should get you going in the right direction. You will have to forgive me for not answering your question directly as I haven't touched Perl in about 5 years.
Jordan S. Jones
2009-05-02 21:56:09
+3
A:
Here you go:
#!/usr/bin/perl -w
my $file = "inner-nav.gif";
my $length = (stat($file)) [10];
print "Content-type: image/gif\n";
print "Content-length: $length \n\n";
binmode STDOUT;
open (FH,'<', $file) || die "Could not open $file: $!";
my $buffer = "";
while (read(FH, $buffer, 10240)) {
print $buffer;
}
close(FH);
RichieHindle
2009-05-02 22:03:18
Very simple and no need to load CGI, thanks.
Nifle
2009-05-04 13:20:28
RichieHindle, please use Perl::Critic - we should give advices with modern Perl
Alexandr Ciornii
2009-05-06 13:38:39
Sorry - my Perl is extremely rusty. That was a (tested) example I found on the net.
RichieHindle
2009-05-06 14:22:00
Instead of pushing people toward Perl::Critic, just say "use three argument open". :)
brian d foy
2009-05-07 04:50:47
Is there something missing? - as my browser indicates it is still in the busy loading state (denoted by animated loading symbol) even after the image is displayed in the browser. Should there be something added to end of the response sent back to the client, to indicate loading complete?
Rob
2010-08-09 09:49:07
+4
A:
Something like this ...
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $gfx='';
$gfx = makeImage();
print CGI::header( type=>'image/png',
expires=>'+1m',
content_length=>length($gfx)});
print $gfx;