perl打开本地/服务器图片

index.html

<html>
<body>
<h2> perl read img </h2>

<img src = "display.html">

</body>
</html>
display.html可以改写成display.cgi

display.html

#! /usr/bin/perl

#定义图片和图片类型（根据需求可以改写成变量）
$image = "1.jpg";
$imgType = 'jpg';

#打开图片
open(IMG, "$image") or die;

#使用二进制文件打开
binmode IMG;
binmode STDOUT;

#输出
print "Content-type: image/$imgType\n\n";
print while (<IMG>);

close(IMG);

exit(0);

 

posted @ 2020-08-22 13:41  kensoz  阅读(161)  评论(0)  编辑  收藏  举报