ねっとまがじん2 インターネットを楽しむ ねっとまがじん(ネットマガジン)  

 

管理専用CGI Perl メモ:画像処理は、Image::Magick を使う≫画像サイズを変更する このページを閉じる
2009年12月10日 18時24分22秒
ねっとまがじん
画像サイズを変更する

 

 

ImageMagick を使って画像サイズを変更する(画像リサイズ)例

# 最大サイズ これ以上のときリサイズ
$maximg_m = 1400;

#▼ 画像サイズチェック
$w_w_new_m = $width;
$w_h_new_m = $height;
if ($width > $maximg_m || $height > $maximg_m) {
  $w_w = $maximg_m / $width;
  $w_h = $maximg_m / $height;
  if ($w_w < $w_h) { $w_hosei = $w_w; }
  else       { $w_hosei = $w_h; }
  $w_w_new_m = int ($width * $w_hosei) || 1;
  $w_h_new_m = int ($height * $w_hosei) || 1;
}
#▼ 画像リサイズ処理
$outfile_m = "./xxxxx";  # 画像リサイズ後に出力ファイル名
$tempimage = Image::Magick->new();
$tempimage->Read($outfile);
$tempimage->Resize(width => $w_w_new_m,height => $w_h_new_m);
$tempimage->Write($outfile_m);

※$width 、 $height は、この下の「画像サイズを取得する」を参照。
※他にもスッキリしたやり方があると思う・・・。(^_^;)

 

 

 

 

注意≫最初に登録されたトピックス(1件目)を削除すると管理フォルダも削除されます。
▼上記記事を削除したいとき。
 会員No(必須)
 パスワード(必須)

 

ねっとまがじん

ねっとまがじん2 ねっとまがじん ねっとまがじん