memo

Image::Magickを使用した写真のサイズ変更

ここのサイトに画像を貼り付けたりリサイズする時に、ちょっと手間なので簡易scriptで対応することにした。

• デジカメで撮影した元の画像
• sciriptを介してリサイズする（横300）

• scriptを介してリサイズする(任意で指定:横500)

scipt

#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
use Image::Magick;

my $obj = new CGI;
my $imgfile = $obj->param('f');
my $s = $obj->param('s');
$s ||= "300";
if($imgfile=~/dsktnk.sakura.ne.jp/){
    my $image = Image::Magick->new;
    $image->Read("$imgfile");
    $image->Resize(geometry => $s);
    print ("Content-type: image/jpeg\n\n");
    binmode STDOUT;
    $image->Write("jpeg:-");
    print "\n\n";
    undef $image;
}