画像サイズの指定方法

質問

$img = 'image.png';

open(IMG,"$img");
$byte = -s $img;
print "Content-type: image/gif\n";
print "Content-length: $byte\n\n";
print <IMG>;
close(IMG);

exit;

上記のように画像を表示させているのですが、縦横サイズは
どのように調整すればよろしいのでしょうか。
よろしくお願いいたします。

回答No.3

Tinte · ベストアンサー

サイズだけの設定でしたら、Image::Sizeというモジュールもありますよ。
しかし、ImageMagickがあれば、ImageSizeの仕事も勿論全部できてしまいます。

ちょっと古いのですが、軽く使うのでしたらライブラリーで
ttp://www.exelana.com/techie/perl/ImageSize.html　（hを付けてください）
ImageSize.plなるものも存在します。かなりわかりやすいと思います。

参考URL：

http://perldoc.jp/docs/modules/Image-Size-2.99/Size.pod

お礼

有難うございます。手軽にできそうですね。

回答No.2

hok212

元画像に対してサイズを変えた画像を表示させたいのなら、
ImageMagickを使ってはいかがでしょう？

Resize, Scale, Transform などを使って画像サイズを変えることができます。

参考URLに簡単な説明があります。

参考URL：

http://www.aimix.jp/cgi/accimagemagicksz.html

お礼

有難うございます。サーバ－にインストールしてみようと思います。

回答No.1

tamahiro22

示された方法では、ファイル自体を出力しています。
よって、画像の縦横サイズの調整はできません。

予め、画像ファイル自体を希望サイズに調整するか、
HTML として出力し、img タグで縦横サイズを調整すると良いでしょう。

お礼

ご回答有難うございます。この方法で表示させる必要があるため、やはり、表示させる画像を予めサイズ調整するしかないようですね。