秋元さんの家で開催されている、AA-camp に行ってきました。

以下は、僕以外の参加者リスト。みんなブログ持ってるんだ。

http://ganchiku.com/ : shin
http://studio15.jp/ : studio15
http://mellowtone.co.jp/ : arai
http://blogging.from.tv/kai4den/ : カイ士伝ちゃん
http://chalow.net/ : yto
http://kwmr.blogzine.jp/ : kwmr
http://pinkmac.com/ : pinkmac
http://ideaxidea.com/ : taguchi
http://d.hatena.ne.jp/michiyas/ : LIND
http://akimoto.jp/ : akky

室内はエンジニアとブロガーだらけ。
みんな、それぞれ自分のやるべきことに没頭しています。
僕は、Mac にスイッチしたあとで、
ブログを書くための環境を整える作業をしていました。

途中で、kwmr さんのお土産のケーキでティータイム。



夕方くらいに、みんなで自己紹介をしたりしました。
僕は、発表するような成果が無かったのが残念。

夜はみんなで、中華料理を食べに行きました。



なかなか料理が来ませんでしたが、交流ができて良かったのでは。



僕は青椒肉絲定食を頼みました。
味は大変普通。ありがちなお味。

やる気にあふれる人と、新年早々お話ができたので、
勢いがついた気がします。この調子で1年走り抜けるぞ。

昼食を食べ損なったので、昼食をラヴァンデリでいただきました。
ラヴァンデリは、店内の雰囲気が良いので、たまに来ます。

ランチセットの「クラブサンドと季節のタルティーヤ」を注文。



野菜たっぷりで、野菜の大切さが染みました。
美味しかったなぁ。また、お昼に来てみよう。

MacBook に IRC クライアントをインストールしていなかったので、
インストールしてみます。うまくいくかな。

LimeChat for OSX をインストール

RubyCocoa 0.13.0 をインストール

LimeChat 0.14.2 をインストール

MacBook に思い切って開発環境を変更して、早3日。
Windows と使い心地が全然違ううえに、
いままで使っていたツールがなくて、何かと困ってます。

いろいろ考えた末に、Mac 使いが普段使っている技は、
あとで教えてもらうことにして、
極力必要なスクリプトをゴリゴリ書いて解決することにしました。

さて、今日はブログ用に画像の縮小するツールが
必要なのでそんなスクリプトを書いてみました。

MacOSX の任意ユーザのデスクトップ上にある画像を
無差別に縮小するスクリプトです。
元画像も破壊するので、他の人が使えるかは微妙。
Image::Magick のインストールがこけたので、
Imager を使っています。ご利用は自己責任で。

#!/usr/bin/perl

use strict;
use warnings;
use Imager;

my $dirname = '/Users/ユーザー名/Desktop/';
my $l_thumbwidth = 大きい画像の最大幅;# max width of large image 
my $s_thumbwidth = 小さい画像の最大幅;# max width of small image 
my $filetype_reg = '(?:jpg|png|gif|bmp)';# image type of target

opendir(DIR, $dirname);
my @filename_arr = readdir(DIR);

foreach my $filename (@filename_arr) {
    my $filepath = "$dirname$filename";
    next unless (-e $filepath);

    my $imager = Imager->new();
    $imager->read(file=>$filepath);

    my $path_type = $imager->type();
    next unless (defined $path_type);

    if ($filename =~ m|^(.+)\.($filetype_reg)$|i) {
        my $name = $1;# get to make thumbnail
        my $type = $2;# detect 

        my $name_is_english = 0;
        if (!($name =~ m|^[0-9a-zA-Z\.\-\_]+$|)) {
            my @stat_arr = stat($filepath);
            $name = $stat_arr[9];
            $name_is_english = 1;
        }

        my $output_type = '';
        if ($type =~ m|^jpg$|i) { 
            $type = 'jpg';
            $output_type= 'jpeg';
        }
        elsif ($type =~ m|^png$|i) { 
            $type = 'png';
            $output_type= 'png';
        }
        else {
            $type = 'png';
            $output_type= 'png';
        }

        my $img_x = $imager->getwidth();

        if ($img_x >= $s_thumbwidth) {
            my $scale = $s_thumbwidth / $img_x;
            my $newimg = $imager->scale(scalefactor=>$scale);
            my $s_thumbpath = $dirname.$name.'_t.'.$type;
            $newimg->write(file=>$s_thumbpath, type=>$output_type, jpegquality => 90);
        }
        elsif ($name_is_english) {
            my $s_thumbpath = $dirname.$name.'_t.'.$type;
            $imager->write(file=>$s_thumbpath, type=>$output_type);
        }
        
        if ($img_x >= $l_thumbwidth) {
            my $scale = $l_thumbwidth / $img_x;
            my $newimg = $imager->scale(scalefactor=>$scale);
            unlink($filepath);
            my $l_thumbpath = $dirname.$name.'.'.$type;
            $newimg->write(file=>$l_thumbpath, type=>$output_type);
        }
        elsif ($name_is_english) {
            unlink($filepath);
            my $l_thumbpath = $dirname.$name.'.'.$type;
            $imager->write(file=>$l_thumbpath, type=>$output_type);
        }
    }
}
closedir(DIR);