2004年9月21日火曜日

新婚旅行に行ってきます

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



2004年9月16日木曜日

Perlクックブック第2版

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

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


2004年9月15日水曜日

Amazon雑誌コーナー

Amazon.co.jp:本 / 雑誌

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



2004年9月14日火曜日

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



2004年9月13日月曜日

CoQ10

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

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

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

2004年9月10日金曜日

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