TOP > Web制作

画像のリサイズ perl



サムネイル用の画像を作成。

use Image::Magick;

my $in = "./xxx/xxx.jpg"; #元画像ファイルパス
my $out = "./xxx/xxx/xxx.jpg"; #画像保存先パス
my $image = Image::Magick->new; #オブジェクト作成
$image->Read($in); #元画像の読み込み
my ($width, $height) = $image->Get('width', 'height'); #元画像サイズの取得

#サイズを変更する
$image->Resize(
width => int($width * 0.5), #0.5は倍率
height => int($height * 0.5), #0.5は倍率
blur => 0.8 #blurはピントのような物で、1未満ならくっきりとシャープに、1を超える値ならぼかしたような感じになる。
);
$image->Write($out);# 画像を保存する
(2012年11月26日)


スポンサーリンク

スポンサーリンク





Copyright(C) 2009-2018 「気ままにMyRoad」 All Rights Reserved.