个人中心
gpt4 book ai didi

perl - 如何使用 Perl CGI 脚本提供图像？

转载 作者：行者123 更新时间：2023-12-02 14:49:59 25 4
gpt4 key购买 nike

我的 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);

关于perl - 如何使用 Perl CGI 脚本提供图像？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/815670/

25 4 0
文章推荐： watchkit - 为 Apple Watch 构建模拟器
文章推荐： unit-testing - 使用 grailsApplication 进行 Grails 单元测试
文章推荐： unit-testing - Class.metaclass.static说不能在null上获得静态
文章推荐： ASP.NET登录页面重定向问题
行者123
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com