Nginx Proxy cache + Perl + ImageMagick 做Wap站图片适配 实时压缩

访问地址: http://172.19.5.47/aaaa/test1.jpg_300x240.jpg
Nginx的配置就不上了,直接贴Perl代码:

package ImageConvertForTRS;

use nginx;

use Image::Magick;

our $baseDir = "/home/tuanCenter/headPhoto/";

sub convertImg{

my $r = shift;

my $path = "";

my $thumbnail = "";

#$r->send_http_header('text/html; charset=utf-8');

my @arr = split('/',$r->uri); #分割请求的uri

my $imgPath = @arr[2];

#$r->print("imgPath: ".$imgPath."\n\r");

my @imgURI = split('_',$imgPath);

$suffix = (split('\.', @imgURI[0]))[1];

#$r->print("suffix: ".$suffix."\n\r");

if("jpg" eq lc($suffix) || "png" eq lc($suffix) || "gif" eq lc($suffix)){

my $imgWHstr = (split('\.', @imgURI[1]))[0];

if ($imgWHstr eq "300x240" || $imgWHstr eq "150x120" || $imgWHstr eq "315x135") {

$thumbnail = $imgWHstr."^";

} elsif ($imgWHstr eq "300x") {

$thumbnail = $imgWHstr;

} else {

return 404;

}

$r->send_http_header('image/'.lc($suffix));

$image= new Image::Magick;

$image->Read($baseDir.@imgURI[0]); #读取图片

$image->Thumbnail(geometry=>$thumbnail); # 注意 ! 缩略图 先Thumbnail(压缩)再Extent(裁剪) 顺序要对 否则图片的尺寸或者压缩都不对

$image->Extent(geometry=>$thumbnail, gravity=>'Center');

#$image = exec("convert /home/tuanCenter/headPhoto/test1.jpg -thumbnail \"300x240^\" -gravity center -extent 300x 240 /home/tuanCenter/headPhoto/test2.jpg");

@blobs = $image->ImageToBlob(); #将resize过的图片转换成Blob二进制对象

$r->print(@blobs); #直接返回二进制对象

return OK;

}

#$r->rflush();

return 404;

}

1;

__END__