■2004-07-28
* [Perl] オブジェクトの共有
久しぶりにithreadsメモを更新。Perlのblessは共有リファレンスに対して効きません。かといって、blessされたリファレンス（オブジェクト）をshareしても、確かに共有化はされますが、何か操作をしようとすると大概うまく動きません（例：'Invalid value for shared scalar'）。これは結構不便です。そこでObject::Sharableをつくってみました。
# Perl5.8.1以上、Storable 2.11以上
use Object::Sharable;
use CGI;
my $cgi = new CGI;
share_obj($cgi); # 共有化！
$cgi->param('foo','hoge');
threads->new(\&test,$cgi)->join;
print $cgi->param('foo'); # 出力は'ok'
# share_objしないと値は'hoge'のまま
sub test{ shift->param('foo','ok'); }
元のオブジェクトをStorableでシリアル化してクラス内に保存（残念ながらGLOB型はシリアライズできません！）。メソッドが呼び出されるとオブジェクトを戻してAUTOLOADでオリジナルのメソッドを呼び出します。このあと再度オブジェクトをシリアル化することでオブジェクトの状態を更新します。そのため直接$obj->{val} = 1とかやっても他のスレッドに伝わりません。オーバーロードしたオブジェクトに対応するようにObject::Sharable::Overloadも用意してあります。あと、DESTROYが複数回呼び出されないように小細工を。まあ、ほとんど役に立たない実験モジュールですのであしからず。
* [雑感] さくらインターネットの新サービス
このサイトは、さくらインターネットを利用しているのですが、最近新しいサービスが始まりまして、乗換えキャンペーンをやっています。で、無料のお試しをしてみたのですが、充実していました。現状のサーバではperl5.00503とruby1.81が使えたのですが、さらにPerl5.8.4、php、pythonが使えて、MySQLも利用できるようです（この辺はサービスプランによります）。
どうもこの新しいサービスは、日記やblogをターゲットにしているみたいで、最初から設定でtDiaryがインストールできるようになっていたり、PerlモジュールではGDやCrypt::DSA、Crypt::Rnadom（当然Math::Pariも！）、さらにXML::LibXMLなど、Movable Typeなどのblogツール用に適したものが結構インストールされています。pureperl版をつくった苦労は……
あと最近知ったのですが、今使っているサーバでもsshやcronが利用できたんですね（新しいサービスでは正式に対応しているみたい）。
ネォ、ニ、ホ・ヲ・ァ・ラ・オ・、・ネ、ピm、ケ、�屮紮奸▲諭▲�、ニ。「クヒノ�譽癲Ε譽�`・ク、ヒミミ、ッ、ネ。「ヤL��・讖`・カゥ`SEM、ホチ�払楕は５０�イ留搬覆ヌ徘ノル、キ、ト、ト、「、��Aマ鬚�あります、つまん�ハヒィ・�Д�・�Ε枸魅�Yケ�茱曄廛◆Ε譽�`・クトソ<a href=http://www.seozone.jp>SEO</a>、魎_弼、ケ、�ъ�`・カゥ`、ャ」ア」ー」ーネヒ、ヒ、ケ、�Ε漾�「」イ・レゥ`・ク<a href=http://www.seozone.jp>SEO拳イ゜</a>トソ、ホ・讖`・カゥ`、マ」オ」ーネヒ、鯤Г錣譟�厚に３ペ�`・クトソ、ヒミミ、ッ、ネ。「」イ」オ、ホ驥モEユ゜、ヒ、キ、ォイミ、オ、�Ε法◆◆▲蓮◆◆▲Α▲諭▲辧▲蓮♯Α�、ケ。」
ヒス、マ、ウ、ホ杉トァ、ホ、隍ヲ、ハ、ヲ、トイ。、ネ<a href=http://www.sayonara-utsu.com>、ヲ、トイ。</a>20ト��gソ瑕L、キ、゛、キ、ソ。」、マ、ク、皃ホ10ト熙マメサネヒ、ヌ。「、ス、キ、ニ、筅ヲ10ト熙マ、「、�Д痢Ε叩Ε愁�`、ネケイ、ヒ、ヲ、トイ。、ヒチ「、チマ�Ε�、テ、ソ、ネムヤ、テ、ニ、、、、、ヌ、キ、遉ヲ。」、ス、�Ε沺◆屐◆�、熙ヒ餃、ッ。「ミチ、、、ヲ、トイ。、ヲ、トイ。ヨホッ洟ホスU鰊でした。