▲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日)
|
