Imager かわいいよ Imager
 ディレクトリ中のjpgファイルの画像サイズを小さくするスクリプト。デジカメの画像サイズがやたらでかかったので、書き捨て用に作成。


use strict;
use warnings;
use Imager;

my $img = Imager->new;
my $regex = qr/(^RIMG\d{4})\.JPG$/;

opendir my $imgdir, '.';
my @files = grep { /$regex/ } readdir($imgdir);
closedir $imgdir;

for my $file (@files) {
$file =~ /$regex/;
$img->read( file => $file ) or die $img->errstr;
$img = $img->scale( scalefactor => 0.3 );
$img->write( file => $1 . '_small.jpg', jpegquality => 100 )
or die $img->errstr;
}


 それにしても Imager は良い。画像の取り扱いが非常に楽。簡単な画像処理系のお仕事は、これ一つで間に合っちゃいそう。
[PR]
by fkmn | 2008-11-08 23:55 | IT
<< 特別展「菌類のふしぎ−きのこと... 「Rubyソースコード完全解説... >>


とあるWebアプリケーションエンジニアの日記
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
カテゴリ
以前の記事
ブログパーツ
リンク
検索
タグ
最新のトラックバック
プログラミングが「出来る..
from とりあえず9JP?
Genographic ..
from ナンジャモンジャ
ジュセリーノ
from ありの出来事
くちこみブログ集(ライフ..
from くちこみブログ集(ライフ)(..
以降、丁寧語で行こう!
from エッセイ的な何か
人気ジャンル
ファン
記事ランキング
ブログジャンル
画像一覧

fkmnの最近読んだ本 フィードメーター - フッ君の日常 あわせて読みたい AX