新婚旅行に行ってきます

結婚してからだいぶ日がたってしまいましたが、今日から１０日間、新婚旅行に行ってきます。ギリシャです。ほとんど準備してないけど大丈夫かなぁ。。

Posted by horiuchi at 00:13 | Permalink | Comments (0) | TrackBack (0)

Perlクックブック第２版

昨日参加したBlogHacksの発売記念イベントでPerlクックブック第２版が販売されていたので買ってきました。おまけとして、Tシャツとメモ帳がついてきて、書籍自体も10％割引だったのでかなり得した気分（笑）このPerlクックブック、新たにmod_perlとXMLという章がが設けられ、Vol1,2の２冊に分けられました。Perlを使ってこんなことやりたいと思ったときはこの本をめくると結構そのものズバリが書いてあったりして、かなり役立つ本だなという印象です。輪講のテキストにもいいかもと思ったり。

Posted by horiuchi at 09:36 | Permalink | Comments (0) | TrackBack (0)

Amazon雑誌コーナー

Amazon.co.jp：本 / 雑誌

アマゾンで雑誌が買えるようになったみたい。

Posted by horiuchi at 09:54 | Permalink | Comments (0) | TrackBack (0)

MIME::Lite::TT::Japanese 0.04

MIME::Lite::TT::Japaneseを0.04にバージョンアップして、CPANにアップロードしました。
変更点は以下の通りです。

• perl5.8.0以上でもMIME-HeaderのエンコーディングをUTF8からISO-2022-JPに変更した。
• それに伴って5.8.0以上でもJcodeを必須モジュールとした。

今までは楽をしてperlのバージョンが5.8.0以上の場合、Encode.pmのEncode::MIME::Header を使っていたので、MIME-HeaderのエンコードがUTF8でしたが、携帯のメーラなどがUTF8にエンコードされたヘッダを解釈できないので、Jcodeを利用してISO-2022-JPにエンコードするようにしました。

Posted by horiuchi at 14:34 | Permalink | Comments (0) | TrackBack (2)

CoQ10

「こえんざいむきゅーてん」略して「こーきゅーてん」と読むそうで、老化を防いだり、肌を美しく変えてくれたり、とにかく体のいろんなところに効果があるらしい。体内に存在しているが20才をピークにどんどん減っていくそう。１日に必要な量は100mg程度でこれを摂取するには肉なら3kg、ブロッコリーだと12kgも食べないといけないんだって。こうなるとサプリに頼らないと必要量は摂取できなそうですね。サプリってなんか人工的でかえって体によくないんじゃないかっていう先入観があるんですが、これはとってみてもいいかも。

Posted by horiuchi at 01:07 | Permalink | Comments (0) | TrackBack (1)

ラストサムライがPS2で見れない

週末に見ようと「ラストサムライ」をTSUTAYAで借りてきたんですが、僕のPS2ではディスクを読み取れなくて再生できませんでした。。ちょっとググってみたところ同じように再生できない人もいるし、できてるひともいるみたい。むむむ。

Posted by horiuchi at 01:00 | Permalink | Comments (0) | TrackBack (0)

Perlモジュールのバージョン確認

たとえばこのサーバにインストールされているCGI.pmのバージョンを確認したいなんて時は

perl -MCGI -e 'print $CGI::VERSION'

なんてコマンドを打ってやれば確認できますが、これをいちいち打つのはめんどくさいので、簡単なスクリプトを書いてみました。

#!/usr/bin/env perl 
use strict;
use File::Basename;
use Getopt::Std;

getopts('v', \my %opt);

die "Usage: ". basename $0. "[-v]  [  ...]\n"
if @ARGV == 0;

no strict 'refs';

for (@ARGV) {
    (my $path = $_) =~ s{::}{/};
    eval {require "$path.pm"};
    if ( $@ ) {
        print "$_: not found.\n" if $opt{v};
    } else {
        print "$_: ", ${join '::',$_,'VERSION'}, "\n";
    }
}

Posted by horiuchi at 09:23 | Permalink | Comments (0) | TrackBack (0)