[kansaipm] Pogo 0.10

Yasushi Nakajima nakajima at netstock.co.jp
Thu Feb 12 20:25:03 CST 2004


 オブジェクトデータベースGOODSのPerlインタフェースPogoの0.10をリリース
しました。なんと前回のリリースから4年も経ってしまいました。

 もうPogoを知ってる人も少ないと思うので、ちょっと紹介しますと、次のよう
な感じでPerlのスカラや配列やハッシュやオブジェクトをデータベースに格納し
て、メモリ上にあるのと同じように扱うことができます。

  use Pogo;

  $pogo = new Pogo 'sample.cfg';  # データベースに接続
  $root = $pogo->root_tie;        # データベースのrootハッシュへの参照を得る
  
  $root->{key1} = "string";       # 文字列をデータベースに格納
  $value = $root->{key1};         # $value は "string"
  
  $root->{key2} = [1,2,3];        # 配列をデータベースに格納
  $arrayref = $root->{key1};      # データベース中の配列への参照を得る
  $value = $root->{key2}->[0];    # $value は 1
  
  $root->{key3} = {a=>1,b=>2};    # ハッシュをデータベースに格納
  $hashref = $root->{key3};       # データベース中のハッシュへの参照を得る
  $value = $root->{key3}->{b};    # $value は 2
  
  $root->{key4} = new Pogo::Btree;# Bツリーハッシュを作る
  $hashref = $root->{key4};       # Bツリーはハッシュとしてアクセスできる
  
  $root->{key5} = new Pogo::Htree;# Hツリーハッシュを作る
  $hashref = $root->{key5};       # Hツリーはハッシュとしてアクセスできる
  
  $root->{key6} = new Aclass;     # オブジェクトをデータベースに格納
  $obj = $root->{key6};           # $obj はデータベース中の Aclass オブジェクト


 PogoはGOODSを含めて私のサイトにあります。

http://hp1.jonex.ne.jp/~nakajima.yasushi/

-- 
Yasushi Nakajima <nakajima at netstock.co.jp>




More information about the Kansai-pm mailing list