memo

ブラタモリ ＃41 お伊勢参り

今回もよかった。また伊勢に行きたくなるな。この番組面白いが、今までノーチェックだった。公式サイトを見てると、出雲編もあって、脳内でやっと繋がった。この前、そば屋の荒木屋に行った時にタモリさんの写真があったんだが、ブラタモリのロケでってことなんだな。今までのコンテンツも見てみたいけど、NHKで会員登録したら面倒な事が起こりそうなのでやめとこう（笑）

今年初のクーラー

今日は蒸し暑くてクーラーをつけた。電気代が最近高くなってきているので、財布まで涼しくなりそうです。

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;
}