TOP > Web制作

画像の圧縮 perl



サイトの表示スピードを上げるために、画像を圧縮することにしたのでそのスクリプト。

圧縮レベルは、ファイルサイズと画質から60から70がいいかも。

圧縮レベル60で、ファイルサイズが大体3分の1位になる。

use Image::Magick;

my $press_level = "60";#圧縮レベル 1から100まで設定 数字が大きいほどファイルサイズ大 画質良
my $in = "./xxxx/xxxx.jpg"; # 元画像ファイル指定
my $out = "./xxxx/xxxx.jpg"; # 画像保存先指定,元画像ファイルと同じにすると上書き
my $image = Image::Magick->new;# オブジェクトの作成
$image->Read($in);# 元画像読み込み
$image -> Set(quality => $press_level);
$image->Write($out);# 画像を保存
(2015年09月17日)


スポンサーリンク

スポンサーリンク





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