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