Image::Magickを利用して、任意の縦横各サイズを指定したフレ

質問

Image::Magickを利用して、任意の縦横各サイズを指定したフレーム内に、
縦横比の違う複数の画像ファイルをHTNL側で指定して呼び出すPerlCGIを
作りたいのですが、今のところ下記のようなimg1.cgiとimg2.cgiが分かっています。
img1.cgiは、複数画像の入っているフォルダを指定してHTML側で呼び出せるのですが、
現状サイズ指定はできません。img2.cgiは、Image::Magickを利用してサイズ調整は
できるのですが、HTMLからのファイル指定とができません。
指定したフォルダから任意のファイル名をHTMLから呼び出し、元画像の縦横比を
変えることなく、スクリプト内で指定した縦横サイズ内に最大の画像を表示させるには
どの様にしたらよろしいでしょうか。ご教授頂ければ幸いです。
宜しく、お願いします。

【img1.cgi】
===CGI===
#!/usr/bin/perl
use strict;
my $fileName = $ENV{'PATH_INFO'};
my $view = './gazou'.$fileName;
my $extention;
if( $fileName =~/.+\.(\w+)/){$extention = $1;}
print "Content-type: image/$extention\n\n";
open IMG,"$view";
binmode IMG;
binmode STDOUT;
while(<IMG>){
print;
}
close IMG;
===HTML===
<IMG src="img1.cgi/ファイル名.JPG" border="0">

【img2.cgi】
===CGI===
#!/usr/bin/perl
use Image::Magick;
$newwidth = 100;
$newheight = 100;
$i = Image::Magick->new;
$i->Read('./gazou/3.JPG');
$i->Scale(geometry=>geometry, width=>$newwidth, height=>$newheight);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
===HTML===
<IMG src="img2.cgi" border="0">

回答No.1

ORUKA1951 · ベストアンサー

後ひと頑張りですね。
あなたのスキルは想像できますから、具体的なソースは書きませんが、サイズは$ENV{'QUERY_STRINGS'}を使います。
　指定方法は、紹介した(使用例)サイトの下の方に書いてあります。

　それをPerl CGIで解析して利用する方法は、PATH_INFOよりふんだんに情報があるので探せるでしょう。

<img src="[CGIへのパス][ファイル名]?width=100&height=100">
　widthだけでなく、wやWIDTHなどでも指定できるようにするとよいでしょう。

なおサイズ変更は、
convertを使うほうが楽です。
convert a.jpg -resize 100x100 b.jpg;
これで、100×100に収まるように、縦横比を変えずに縮小/拡大してくれます。