Home/ Questions/Q 212259
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-11T18:10:12+00:00

My Google fu is failing me. How do I use Perl to serve up

  • 0

My Google fu is failing me. How do I use Perl to serve up an already generated image?

Example:

<html><body><img src="getimage.pl"></body></html>

What goes in getimage.pl?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Here you go:

    #!/usr/bin/perl -w
my $file = "inner-nav.gif";

## my $length = (stat($file)) [10];
## (stat($file)) [10]; is the inode change time in seconds since  00:00 January 1, 1970 GMT. 
my $length = (stat($file)) [7];
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);
    • 0