imageMagick

Linux nginx 下的配置说明

安装

首先，安装imageMagick与Perl Imager

# yum install ImageMagick ImageMagick-perl perl-YAML
# yum install giflib-devel libjpeg-devel libtiff-devel libpng-devel freetype-devel
# cpan -i Imager

安装nginx时需添加 perl支持

# ./configure --with-http_perl_module --with-pcre
# make && make install

nginx配置
在http中加入以下配置：

perl_modules perl/lib;#perl/lib代表放置的perl脚本相对于nginx根目录的路径
perl_require xxx.pl;#xxx.pl代表所用到的脚本名称

在 请求的server中配置图片请求转发到perl处理 以equipone 测试服务器为例，在static配置的server中加入以下

 location ~ \.pl$ {
			perl pkg_name::process;
		  }

注：~ \.pl$表示以.pl结尾的图片请求转发到perl/lib 下的xxx.pl package为pkg_name名为process的方法处理

perl脚本的配置编写
下面编写perl脚本位置为nginx安装目录/usr/local/nginx +perl_modules配置目录 perl/lib 即：/usr/local/nginx/perl/lib/xxx.pl 编写pl需要引入模块（当然要求以安装的模块）以下面脚本为例

package showimg;
use nginx;
use Image::Magick;

use nginx 引入nginx模块就可以使用nginx中提供的perl语言接口， nginx 在perl中可以使用一下方法

$r->args – 请求的参数 .
$r->discard_request_body – 这个参数是让 Nginx 放弃 request 的 body 的内容.
$r->filename – 返回合适的请求文件的名字
$r->has_request_body(function) – 如果没有请求主体,返回0,但是如果请求主体存在,那么建立传递的函数并返回1,在程序的最后,nginx将调用指定的处理器.
$r->header_in(header) – 查找请求头的信息
$r->header_only – 如果我们只要返回一个响应的头
$r->header_out(header, value) – 设置响应的头
$r->internal_redirect(uri) – 使内部重定向到指定的URI,重定向仅在完成perl脚本后发生.可以使用 header_out(Location….的方法来让浏览器自己重定向
$r->print(args, …) – 发送数据给客户端
$r->request_body – 得到客户端提交过来的内容 （body 的参数,可能需要修改 nginx 的 client_body_buffer_size. ）
$r->request_body_file —给客户的 body 存成文件,并返回文件名
$r->request_method — 得到请求 HTTP method.
$r->remote_addr – 得到客户端的 IP 地址.
$r->rflush – 立即传送数据给客户端
$r->sendfile(file [, displacement [, length ] ) – 传送给客户端指定文件的内容,可选的参数表明只传送数据的偏移量与长度,精确的传递仅在perl脚本执行完毕后生效.这可是所谓的高级功能啊
$r->send_http_header(type) – 添加一个回应的 http 头的信息
$r->sleep(milliseconds, handler) – 设置为请求在指定的时间使用指定的处理方法和停止处理,在此期间nginx将继续处理其他的请求,超过指定的时间后,nginx将运行安装的处理方法,注意你需要为处理方法通过一个reference,在处理器间转发数据你可以使用$r->variable().
$r->status(code) – 设置 http 的响应码
$r->unescape(text) – 使用 http 方法加密内容如 %XX
$r->uri – 得到请求的 URL.
$r->variable(name[, value]) – 设置变量的值

而imagemagick的perl接口可以到这里看  http://www.imagemagick.org/script/perl-magick.php 下面是imagemagick的一个简单的实现

$image= new Image::Magick;
$image->Read($real_file_path);
$image->Scale($size);
$image->Write($dest_file);
#$real_file_path指的是原始图片的路径如"/var/www/upload/client_static/logo.gif"
#$size指的是需要剪裁的长宽如"200x100"
#$dest_file指的是新生成图片的路径，如："/var/www/upload/client_static/logo_200x100.gif"，需路径目录需存在 否则会报错

脚本编写思路

完整的脚本编写思路为：

首先从nginx请求中获取索取参数 1，图片路径 2，剪裁大小；

然后利用imagemagick完成图片的剪裁；

最后将剪裁完成的文件流写入nginx的返回文件流中；

注：nginx中定义变量

可以在package中定义 our $xxx;表示package 下都可以使用

也可以在方法中定义 my $xxx;表示在此方法中使用

perl中join方法

join("aaa", "bbb", "ccc");

表示在bbb和ccc中加入aaa得到bbbaaaccc

附：完整的脚本代码

package showimg;

use nginx;
use Image::Magick;
our $image;

sub process {
    my $r = shift;

	 $r->send_http_header('Content-Type', 'image/gif');

	my $params = $r->args;

	if (!$params || ($params eq "")) {
	}

	@pairs = split(/&/, $params);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$FORM{$name} = $value if ($name);
	}

	my $docroot = "/var/www/upload/client_static";
	my $url = $FORM{"url"};
	my $size = $FORM{"size"};
	my $real_file_path = join "", $docroot, $url;

 
	my @filename_tokens=split('\.', $url);

	my $ext=pop @filename_tokens;
	my $ini_file_name=pop @filename_tokens;
	my $dest_file=join("_resize_$size.", $ini_file_name, $ext);
	$dest_file=join "", $docroot, $dest_file;
 
	$image= new Image::Magick;
	$url_error = $image->Read($real_file_path);
	if ($url_error) {
		$dest_file=join("_resize_$size.", "/logo", "gif");
		$dest_file=join "", $docroot, $dest_file;
		$image->Read("$docroot/logo.gif");
	}
	$image->Scale($size);
	$image->Write($dest_file);
	$r->sendfile($dest_file);

	return OK;



}

1;
__END__

版本1.2
说明：1，修改剪裁后图片文件的路径：/var/www/tmp ，其他存放路径与图片真实路径一致；
如：原图路径为：/var/www/upload/client_static/2014/2014_01/2014_01_07/3/1/4/imageFile/1389075917555_A1.jpg 请求尺寸为155x159
那么请求时会创建一个新的图片存放为：/var/www/tmp/2014/2014_01/2014_01_07/3/1/4/imageFile/1389075917555_A1_resize_155x159.jpg
2,优化图片读取，当请求的图片以存在时直接读取，不再进行剪裁操作；

package showimg;

use nginx;
use Image::Magick;
our $image;
use   File::Path;

sub process {
    my $r = shift;

	 $r->send_http_header('Content-Type', 'image/gif');
	 #$r->send_http_header('text/html; charset=utf-8');

	my $params = $r->args;

	if (!$params || ($params eq "")) {
	}

	@pairs = split(/&/, $params);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$FORM{$name} = $value if ($name);
	}

	my $docroot = "/var/www/upload/client_static";
	my $url = $FORM{"url"};
	my $size = $FORM{"size"};
	my $real_file_path = join "", $docroot, $url;

	##
	my $resizeRoot = "/var/www/tmp";
	my $pathIndex = rindex($url, "/");
	#my $ini_img_name = substr($url,$pathIndex+1);
	my $ini_img_path = substr($url,0,$pathIndex);
	my $comPath = join "", $resizeRoot, $ini_img_path;

 
	my @filename_tokens=split('\.', $url);

	my $ext=pop @filename_tokens;
	my $ini_file_name=pop @filename_tokens;
	my $dest_file=join("_resize_$size.", $ini_file_name, $ext);
	$dest_file=join "", $resizeRoot, $dest_file;
 
	$image= new Image::Magick;

	my $resurl_error = $image->Read($dest_file);
	if($resurl_error){
		my $url_error = $image->Read($real_file_path);
		if ($url_error) {
			$dest_file=join("_resize_$size.", "/logo", "gif");
			$dest_file=join "", $resizeRoot, $dest_file;
			$image->Read("$docroot/logo.gif");
		}

		if (-e $comPath){
		}else{
			eval{mkpath($comPath,0,0777)}; 
		}
		$image->Scale($size);
		$image->Write($dest_file);

	}
	$r->sendfile($dest_file);

	return OK;
}
1;
__END__

---

另一实例：

功能实现：通过nginx将图片请求转发到perl脚本交由imageMagic完成剪裁后返回数据流。
请求链接实例如下： static.alloysuppliers.info/content/ff808081163c05b001169d6655243ae9/thumbimages/pulpfiction24X36.jpg_size_100x100.resize

部署步骤：

1.测试服务器中安装nginx 与imageMagic nginx 需添加--with-http_perl_module --with-pcre模块 apt-get方式安装nginx可手动下载源码编译。

2.perl脚本添加：在nginx安装路径下/etc/nginx添加perl/lib文件夹加入showimg.pl脚本，代码下面展示；

3，nginx 配置文件中添加如下配置，将图片请求转发脚本处理。

注：生成的临时目录是：/var/www/tmp

location ~ \.resize$ {
		root /var/www/root;
		perl showimg::process;
		expires 1h;
	}

pl中获取图片地址与剪裁大小，处理生成符合大小的图片，并返回；showimg.pl代码如下：

package showimg;

use nginx;
use Image::Magick;
our $image;
use   File::Path;

sub process {
    my $r = shift;

	 $r->send_http_header('Content-Type', 'image/gif');
	 #$r->send_http_header('text/html; charset=utf-8');

	
	my $uri=$r->uri;
	my $url;
	my $sizeB;
	($url, $sizeB) = split(/_size_/, $uri);
	my $sizeIndex = rindex($sizeB, ".");
	my $size = substr($sizeB,0,$sizeIndex);

	my $docroot = "/var/www/root";
	my $real_file_path = join "", $docroot, $url;

	##
	my $resizeRoot = "/var/www/tmp";
	my $pathIndex = rindex($url, "/");
	#my $ini_img_name = substr($url,$pathIndex+1);
	my $ini_img_path = substr($url,0,$pathIndex);
	my $comPath = join "", $resizeRoot, $ini_img_path;

 
	my @filename_tokens=split('\.', $url);

	my $ext=pop @filename_tokens;
	my $ini_file_name=pop @filename_tokens;
	my $dest_file=join("_resize_$size.", $ini_file_name, $ext);
	$dest_file=join "", $resizeRoot, $dest_file;
 
	$image= new Image::Magick;

	my $resurl_error = $image->Read($dest_file);
	if($resurl_error){
		my $url_error = $image->Read($real_file_path);
		if ($url_error) {
			$dest_file=join("_resize_$size.", "/logo", "gif");
			$dest_file=join "", $resizeRoot, $dest_file;
			$image->Read("$docroot/logo.gif");
		}

		if (-e $comPath){
		}else{
			eval{mkpath($comPath,0,0777)}; 
		}
		$image->Scale($size);
		$image->Write($dest_file);

	}
	$r->sendfile($dest_file);

	return OK;



}

1;
__END__