我的Google fu让我失望了.如何使用Perl提供已生成的图像？
例:
<html><body><img src="getimage.pl"></body></html>
getimage.pl中包含哪些内容？
干得好:
#!/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);
小智 6
像这样......
#!/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;