ホーム管理専用(CGIメモ)≫CGI Perl メモ:画像処理は、Image::Magick を使う

 

CGI Perl メモ:画像処理は、Image::Magick を使う   100 / 2件中 ( 1 〜 2 )    1      【登録】 (制限あり)
▼ 最初に登録されたトピックス
CGI Perl メモ:画像処理は、Image::Magick を使うねっとまがじん 2009/12/10 14:58:14

画像処理は、Image::Magick を使う。
サーバーにインストールされている。

定義は以下。
use Image::Magick;

色々と使い方がありそうで便利。(^.^)

▲ 最初に登録されたトピックス

 

2. 画像サイズを変更する ねっとまがじん 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. 画像サイズを取得するねっとまがじん  2009/12/10 15:40:40

#--- 画像サイズを取得
$i = Image::Magick->new;
$i -> Read("$outfile");
$width = $i -> get('width'); # 横サイズ
$height = $i -> get('height'); # 縦サイズ

※$outfile は、選択された画像を保存したファイル名。
関連:CGI Perl メモ:画像 「画像を保存する」で付けた名称。
 http://n2.sppd.ne.jp/awg2/v-mag/n2m-091208144819/index.htm

 

CGI Perl メモ:画像処理は、Image::Magick を使う   100 / 2件中 ( 1 〜 2 )    1      【登録】 (制限あり)

 


ホーム