« Apacheで日本語ファイル名扱うmod_encoding | トップページ | アドビサポートデータベース新着RSSと、ソフトアンテナのRSSの自動生成を作りました。 »

2006.03.22

MacOSX10.3のコマンドラインで、特定ファイルサイズ以内に納めるように圧縮率を変更して保存するスクリプト（手抜き）

で、フリーソフト使っちゃだめって言う要件なので、Mac OS X だけで作ってみたけど、すごい手抜き。

#!/usr/bin/perl
# fllename: jpegsizelimit.pl
# usage: perl jpegsizelimit.pl hoge.jpg
 
my $target_size = 1024 * 1024; # 1MB
 
open (FH,"<table.txt"); # あらかじめtable.txtていう
                        # 圧縮比ルックアップテーブルを
                        # 用意しておいてね
while(<FH>) {
  chomp;                # 改行コードをチョップしとくよ。
  ($a,$b) =split("\t",$_); # タブ区切り。
  $table[$a] = $b;      # 配列に入れる。
}
 
$filename = shift @ARGV; # コマンドラインから１つしか引数とらないよ
$tempfile = "temp.jpg";  # カレントディレクトリに
                         # temp.jpgとるという極悪仕様です。
                         # fie::temp 使えばいいのにね。
system("sips -s format jpeg -s formatOptions 100 $filename --out $tempfile");
$max_size = -s $tempfile;
$target_ratio = $target_size/$max_size;
 
for ( $i = 0; $i<101; ++$i) { # 圧縮率テーブル探索。
  if ($table[$i] > $target_ratio) {
    last;
  }
}
 
$target_value = $i-1;   # ここで、sipsに入れる圧縮のパラメタが決まるよ！
 
system("sips -s format jpeg -s formatOptions $target_value $filename --out new_$filename");
                        # 頭にnew_をつけた適切な圧縮率になっている
                        # と思われるJPEG 生成するよ。

2006.03.22 午前 01:21 [Script] | 固定リンク |