新婚旅行に行ってきます

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

Perlクックブック第２版

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

Perlクックブック〈VOLUME1〉

Posted with amazlet at 04.09.16

トム クリスチャンセン ネイザン トーキントン Tom Christiansen Nathan Torkington Shibuya Perl Mongers ドキュメントシステム
オライリージャパン (2004/09)
売り上げランキング: 14,017
通常2～3日以内に発送します。

Amazonで詳細を見る

Perlクックブック〈VOLUME2〉

Posted with amazlet at 04.09.16

トム クリスチャンセン ネイザン トーキントン Tom Christiansen Nathan Torkington Shibuya Perl Mongers ドキュメントシステム
オライリージャパン (2004/09)
売り上げランキング: 13,130
通常2～3日以内に発送します。

Amazonで詳細を見る

Amazon雑誌コーナー

Amazon.co.jp：本 / 雑誌

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

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にエンコードするようにしました。

CoQ10

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

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

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

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