perl打开本地/服务器图片

转载于本人博客园
https://www.cnblogs.com/kenso...

index.html

 perl read img 

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 ();

close(IMG);

exit(0);