NAME

Pogo - Perl GOODS interface

SYNOPSIS

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->{key5};       # B¥Ä¥ê¡¼¤Ï¥Ï¥Ã¥·¥å¤È¤·¤Æ¥¢¥¯¥»¥¹¤Ç¤¤ë

$root->{key5} = new Pogo::Htree;# H¥Ä¥ê¡¼¥Ï¥Ã¥·¥å¤òºî¤ë
$hashref = $root->{key6};       # H¥Ä¥ê¡¼¤Ï¥Ï¥Ã¥·¥å¤È¤·¤Æ¥¢¥¯¥»¥¹¤Ç¤¤ë

$root->{key6} = new Aclass;     # ¥ª¥Ö¥¸¥§¥¯¥È¤ò¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼
$obj = $root->{key4};           # $obj ¤Ï¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î Aclass ¥ª¥Ö¥¸¥§¥¯¥È

DESCRIPTION

³µÍ×

Pogo ¤Ï GOODS (Generic Object Oriented Database System)¤Î Perl ¥¤¥ó¥¿ ¡¼¥Õ¥§¡¼¥¹¤Ç¤¹¡£Pogo ¤Ï Perl ¤Î¥¹¥«¥é¤äÇÛÎó¤ä¥Ï¥Ã¥·¥å¤ä¥ª¥Ö¥¸¥§¥¯¥È¤ò ¥À¥¤¥ì¥¯¥È¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤ËÂÐ±þ¤Å¤±¤Þ¤¹¡£Pogo ¤Ë¤Ï¼¡¤Î¥Ç¡¼ ¥¿¥¿¥¤¥×¤¬¤¢¤ê¤Þ¤¹¡£

- ¥¹¥«¥é¡¼
- ÇÛÎó
- ¥Ï¥Ã¥·¥å
- H¥Ä¥ê¡¼ (¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤¬B¥Ä¥ê¡¼¤È¤Ê¤Ã¤Æ¤¤¤ë¥Ï¥Ã¥·¥å)
- B¥Ä¥ê¡¼
- N¥Ä¥ê¡¼¡Ê¥¡¼¤¬À°¿ôÃÍ¤ÎB¥Ä¥ê¡¼¡Ë

¥¹¥«¥é¡¼¥Ç¡¼¥¿¤ä½¸¹ç¥¿¥¤¥×¥Ç¡¼¥¿¤ÎÍ×ÁÇ¤ÎÃÍ¤Ï¡¢Ê¸»úÎó¤«¡¢Â¾¤Î¥Ç¡¼¥¿¤Ø¤Î »²¾È¤Ç¤¹¡£Pogo ¤Ï Perl ¤Î tie ¤Î»ÅÁÈ¤ß¤òÍøÍÑ¤·¤Æ¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î±ÊÂ³¥Ç ¡¼¥¿¤Ø¤ÎÆ©²áÅª¤Ê¥¢¥¯¥»¥¹ÊýË¡¤òÄó¶¡¤·¤Þ¤¹¡£¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î³Æ¥Ç¡¼¥¿¤ÏÆâ ÉôÅª¤Ë¥¯¥é¥¹Ì¾¤ò»ý¤Æ¤ë¤Î¤Ç¡¢Perl ¤Î¥ª¥Ö¥¸¥§¥¯¥È¡Ê¤Ä¤Þ¤ê¥¯¥é¥¹Ì¾¤Ç bless ¤µ¤ì¤¿»²¾È¡Ë¤ò¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Ë³ÊÇ¼¤Ç¤¤Þ¤¹¡£

GOODS ¥µ¡¼¥Ð¡¼

Pogo ¤Î¥Ù¡¼¥¹¤È¤Ê¤Ã¤Æ¤¤¤ë GOODS ¤Ï¡¢¥¯¥é¥¤¥¢¥ó¥È¥µ¡¼¥Ð¡¼·¿¤Î¥Ç¡¼¥¿¥Ù¡¼ ¥¹¤Ç¤¹¡£Pogo ¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¢Æ±¤¸¥Þ¥·¥ó¾å¤« TCP/IP ¤Ç¤Ä¤Ê¤¬¤Ã¤¿ Â¾¤Î¥Þ¥·¥ó¾å¤ÇÆ°ºîÃæ¤Î¡¢GOODS ¥µ¡¼¥Ð¡¼¥×¥í¥»¥¹¤òÉ¬Í×¤È¤·¤Þ¤¹¡£GOODS ¥µ ¡¼¥Ð¡¼¤Î¥×¥í¥°¥é¥à¤Ï¡Ögoodsrv¡×¤È¤¤¤¦Ì¾Á°¤Ç¡¢/usr/local/goods/bin/ ¤Ë ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Þ¤¹¡£Pogo ¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤È¤½¤ì¤ËÂÐ±þ¤¹¤ë goodsrv ¤Ï¤ª¸ß¤¤¤ËÄÌ¿®¤¹¤ë¤¿¤á¤ËÆ±¤¸ TCP ¥Ý¡¼¥È¤ò»È¤¦É¬Í×¤¬¤¢¤ê¤Þ¤¹¡£¤½¤Î¤¿¤á ¤ËÎ¾¼Ô¤Ï¡¢goodsrv ¤Î¥Û¥¹¥ÈÌ¾¤È TCP ¥Ý¡¼¥ÈÈÖ¹æ¤òµºÜ¤·¤¿Æ±¤¸ÀßÄê¥Õ¥¡¥¤ ¥ë¤ò»²¾È¤·¤Þ¤¹¡£ÀßÄê¥Õ¥¡¥¤¥ë¤Ï¡Ö.cfg¡×¤Î³ÈÄ¥»Ò¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¥í ¡¼¥«¥ë¥Þ¥·¥ó¾å¤Î goodsrv ¤ËÂÐ¤¹¤ëÅµ·¿Åª¤ÊÀßÄê¥Õ¥¡¥¤¥ë¤Ï¼¡¤Î¤è¤¦¤ÊÆâÍÆ ¤Ë¤Ê¤ê¤Þ¤¹¡£

1
0: localhost:6100

£±¹ÔÌÜ¤Î¡Ö1¡×¤Ï¤³¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤¬°ì¤Ä¤Î goodsrv ¤ò»È¤¦¤³¤È¤ò°ÕÌ£¤·¤Þ¤¹ ¡ÊÆó¤Ä°Ê¾å»È¤¦¤³¤È¤â²ÄÇ½¤Ç¤¹¤¬ Pogo ¤Ç¤Ï°ì¤Ä¤·¤«»È¤¤¤Þ¤»¤ó¡Ë¡£Æó¹ÔÌÜ¤Î ¡Ö0: localhost:6100¡×¤Ï¡¢°ì¤ÄÌÜ¤Î goodsrv ¤¬¡¢localhost ¤Ë¤¢¤Ã¤Æ¡¢¥Ý¡¼ ¥ÈÈÖ¹æ6100¤ò»È¤¦¤³¤È¤ò°ÕÌ£¤·¤Æ¤¤¤Þ¤¹¡£

¤³¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤¬¡¢¡Ötest.cfg¡×¤È¤·¤Æºî¤é¤ì¤Æ¤¤¤ë¤Ê¤é¤Ð¡¢goodsrv¤Ï¼¡¤Î¤è¤¦¤Ëµ¯Æ°¤Ç¤¤Þ¤¹¡£

goodsrv test

¤¹¤ë¤È¡¢goodsrv ¤Ï¼¡¤Ë¼¨¤¹°ìÁÈ¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤òºîÀ®¤·¤Þ¤¹¡£¤³¤ì ¤é¤Î¥Õ¥¡¥¤¥ë¤òºï½ü¤·¤¿¤êÄ¾ÀÜÊÔ½¸¤·¤¿¤ê¤ÏÀäÂÐ¤Ë¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£

test.his
test.idx
test.log
test.map
test.odb

µ¯Æ°¤·¤¿ goodsrv ¤Ï¥³¥ó¥½¡¼¥ë¤«¤é¤Î¥³¥Þ¥ó¥ÉÆþÎÏ¤òÂÔ¤Á¤Ä¤Ä¡¢»ØÄê¤µ¤ì¤¿ TCP ¥Ý¡¼¥È¤òÄÌ¤¸¤Æ¥Ç¡¼¥¿¥Ù¡¼¥¹¥µ¡¼¥Ó¥¹¤òÄó¶¡¤·¤Þ¤¹¡£¥³¥Þ¥ó¥É¤Ë¤è¤Ã¤Æ¡¢ ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎÅý·×¾ðÊó¤ò¸«¤¿¤ê¡¢¥Ð¥Ã¥¯¥¢¥Ã¥×¤ò¼è¤Ã¤¿¤ê¤Ç¤¤Þ¤¹¡£GOODS ¤Î readme.htm ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

¼ÂÍÑ¾å¤Ï¡¢goodsrv ¤Ï¥Ð¥Ã¥¯¥°¥é¥¦¥ó¥É¥×¥í¥»¥¹¤È¤·¤Æµ¯Æ°¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ë ¤Ç¤·¤ç¤¦¡£Pogo ¤Ï¡¢goodsrv ¤ò¥Ð¥Ã¥¯¥°¥é¥¦¥ó¥É¤Çµ¯Æ°¤¹¤ë¤¿¤á¤È¡¢¤½¤Î goodsrv ¤Ë¥³¥Þ¥ó¥É¤òÁ÷¤ë¤¿¤á¤Î¡¢Æó¤Ä¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¥¹¥¯¥ê¥×¥È¤òÍÑ°Õ ¤·¤Æ¤¤¤Þ¤¹¡£goodsrv ¤ò¡¢test.cfg ¤Ë½¾¤Ã¤Æµ¯Æ°¤¹¤ë¤Ë¤Ï¼¡¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

startgoodsrv test &

¤³¤Î¾ì¹ç¡¢goodsrv¤Î²èÌÌ½ÐÎÏ¤Ïtest.goodsrv.log¤ËÊÝÂ¸¤µ¤ì¤Þ¤¹¡£ goodsrv¤ò½ªÎ»¤¹¤ë¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

cmdgoodsrv test exit

tie¥¤¥ó¥¿¡¼¥Õ¥§¡¼¥¹

ÀÜÂ³

¤Þ¤ººÇ½é¤Ë¡¢¼Â¹ÔÃæ¤ÎGOODS¥µ¡¼¥Ð¡¼¤ËÀÜÂ³¤·¤Þ¤¹¡£

$pogo = new Pogo $cfgfilename;

$cfgfilename ¤Ï GOODS ¥µ¡¼¥Ð¡¼¤ò»ØÄê¤¹¤ëÀßÄê¥Õ¥¡¥¤¥ëÌ¾¤Ç¤¹¡£¤³¤ì¤ÇÆÀ¤é ¤ì¤¿ Pogo ¥ª¥Ö¥¸¥§¥¯¥È¤Ï°Ê²¼¤Ç»ÈÍÑ¤·¤Þ¤¹¡£

¥ë¡¼¥È¤òÆÀ¤ë

¼¡¤Ë¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î¥ë¡¼¥ÈB¥Ä¥ê¡¼¤Ø¤Î»²¾È¤òÆÀ¤Þ¤¹¡£

$root = $pogo->root_tie;

¥Î¡¼¥È¡§GOODS ¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î±ÊÂ³¥Ç¡¼¥¿¤Ï¡¢É¬¤ºÂ¾¤Î±ÊÂ³¥Ç¡¼¥¿¤«¤é»²¾È ¤µ¤ì¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¤â¤·¤¢¤ë¥Ç¡¼¥¿¤¬¤É¤Î±ÊÂ³¥Ç¡¼¥¿¤«¤é¤â»²¾È¤µ ¤ì¤Ê¤¯¤Ê¤ë¤È¡¢¤½¤Î¥Ç¡¼¥¿¤Ï GOODS ¤Î¥¬¥Ù¡¼¥¸¥³¥ì¥¯¥·¥ç¥ó¥·¥¹¥Æ¥à¤Ë¤è¤Ã ¤Æ²ó¼ý¤µ¤ì¤Þ¤¹¡£¤³¤Î¤³¤È¤«¤é¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤Ï¾¯¤Ê¤¯¤È¤â°ì¤Ä¤Ï¡¢ÀäÂÐÅª ¤Ê±ÊÂ³¥Ç¡¼¥¿¤¬¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤½¤ì¤¬¥ë¡¼¥È¤È¸Æ¤Ð ¤ì¤ë¥Ç¡¼¥¿¤Ç¤¹¡£Pogo ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥ë¡¼¥È¤Ï B ¥Ä¥ê¡¼¥Ç¡¼¥¿¤Ç¤¹¡£ root_tie ¥á¥½¥Ã¥É¤Ï¡¢¤³¤Î¥ë¡¼¥È B ¥Ä¥ê¡¼¥Ç¡¼¥¿¤Ø¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£

Ê¸»úÎó¤È¿ôÃÍ

¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥Ç¡¼¥¿¤ò³ÊÇ¼¤¹¤ë¤Ë¤Ï¡¢Ã±¤Ë Perl ¤Î¥Ç¡¼¥¿¤ò $root ¤òÄÌ¤¸ ¤ÆÂåÆþ¤¹¤ë¤À¤±¤Ç¤¹¡£$root ¤Ï¥Ï¥Ã¥·¥å»²¾È¤Ç¤¢¤ë¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£

$root->{key} = "value";
$root->{pi} = 3.14;

¥Î¡¼¥È¡§Pogo ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ç¤Ï¡¢¥Ç¡¼¥¿ÃÍÊ¸»úÎó¤Ë¤Ï¥Ì¥ëÊ¸»ú¡Ê"\x00"¡Ë¤ò ´Þ¤à¤³¤È¤¬¤Ç¤¤Þ¤¹¤¬¡¢¥Ï¥Ã¥·¥å¥¡¼Ê¸»úÎó¤Ë¤Ï´Þ¤à¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¡£

¥Î¡¼¥È¡§¿ôÃÍ3.14¤ÏÊ¸»úÎó"3.14"¤È¤·¤Æ³ÊÇ¼¤µ¤ì¤Þ¤¹¡£¤³¤Î¥Ç¡¼¥¿ÊÑ´¹¤Ï¥ª¡¼ ¥Ð¡¼¥Ø¥Ã¥É¤Ç¤¹¤Î¤Ç¡¢¾Íè¤Î Pogo ¤Ç¤ÏÄ¾ÀÜ¿ôÃÍ¤È¤·¤Æ³ÊÇ¼¤¹¤ë¤è¤¦¤Ë¤Ê¤ë¤Ç ¤·¤ç¤¦¡£

¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥Ç¡¼¥¿¤ò³ÊÇ¼¤·¤¿¤é¡¢¤½¤ì¤ò¼è¤ê½Ð¤¹¤³¤È¤¬¤Ç¤¤Þ¤¹¡£

$value = $root->{key};  # $value ¤Ï "value"
$pi = $root->{pi};      # $pi ¤Ï "3.14"

ÇÛÎó¤È¥Ï¥Ã¥·¥å

ÇÛÎó¤ä¥Ï¥Ã¥·¥å¤ò³ÊÇ¼¤¹¤ë¤Ë¤Ï¡¢»²¾È¤òÂåÆþ¤·¤Þ¤¹¡£

$root->{key1} = \@array;
$root->{key2} = [1,2,3];
$root->{key3} = \%hash;
$root->{key4} = {a=>1,b=>2,c=>3};
$root->{key5} = {a=>[1,2],b=>{c=>3,d=>4}};

¤³¤ÎÂåÆþ¤Ï¡¢»²¾È¤À¤±¤ò³ÊÇ¼¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢¤½¤ÎÇÛÎó¤ä¥Ï¥Ã¥·¥å¤ÎÃæÌ£¤â¥Ç ¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤ë¤È¤¤¤¦¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î±Ê Â³¥Ç¡¼¥¿¤Ï¡¢Èó±ÊÂ³¡Ê¤Ä¤Þ¤ê¥á¥â¥ê¾å¤Î¡Ë¥Ç¡¼¥¿¤ò»²¾È¤¹¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó ¤Î¤Ç¡£¤Ä¤Þ¤ê¡¢ÇÛÎó¤ä¥Ï¥Ã¥·¥å¤Î¥³¥Ô¡¼¤¬¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Ëºî¤é¤ì¤Æ¤½¤Î»²¾È ¤¬ÂåÆþ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ë¤ï¤±¤Ç¤¹¡£¾å¤ÎÎã¤Ç¸À¤¨¤Ð¡¢ÂåÆþ¸å¤Ë@array ¤ä % hash ¤òÊÑ¹¹¤·¤Æ¤â¡¢$root->{key1}¤ÎÇÛÎó¤ä $root->{key3}¤Î¥Ï¥Ã¥·¥å¤¬ÊÑ¹¹ ¤µ¤ì¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

³ÊÇ¼¤·¤¿ÃÍ¤òÆÀ¤ë¤Ë¤Ï¡¢ÉáÄÌ¤Ë ->[] ¤ä ->{} ¤ÎµË¡¤ò»È¤¦¤³¤È¤¬¤Ç¤¤Þ¤¹¡£

$value = $root->{key5}->{a}->[1];  # $value ¤Ï 2
$value = $root->{key5}{a}[1];      # {} ¤ä [] ¤Î´Ö¤Î -> ¤Ï¾ÊÎ¬²ÄÇ½

¤â¤·»ØÄê¤·¤¿ÃÍ¤¬¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤ÎÊÌ¤Î¥Ç¡¼¥¿¤Ø¤Î»²¾È¤Ç¤¢¤Ã¤¿¾ì¹ç¤Ï¡¢Á³¤ë ¤Ù¤·¿¤Î»²¾È¤¬ÆÀ¤é¤ì¤Þ¤¹¡£¤½¤Î»²¾È¤Ï¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥Ç¡¼¥¿¤ò³ÊÇ¼¤·¤¿¤ê ÆÀ¤¿¤ê¤¹¤ë¤Î¤Ë»È¤¨¤Þ¤¹¡£

$hashref = $root->{key4};     # ¥Ï¥Ã¥·¥å»²¾È¤òÆÀ¤ë
$hashref->{d} = 4;            # ¥Ç¡¼¥¿¤ò³ÊÇ¼¤¹¤ë
$value = $hashref->{c};       # $value ¤Ï 3

¥Î¡¼¥È¡§CODE¤ÈIO¤Î»²¾È¤Ï¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤¹¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£

ÇÛÎó¤Î¥µ¥¤¥º

Pogo ¤ÎÇÛÎó¤ÏÉ¬Í×¤Ê¤È¤¤Ë¼«Æ°Åª¤ËÂç¤¤¯¤Ê¤ê¤Þ¤¹¡£¤·¤«¤·¡¢¤³¤ì¤Ï¥Ç¡¼¥¿ ¥Ù¡¼¥¹Æâ¤Î¥Ç¡¼¥¿¤ÎºÆÇÛÃÖ¤ò¤È¤â¤Ê¤¤¤Þ¤¹¡£ÇÛÎó»²¾È¤¬ÂåÆþ¤µ¤ì¤¿¤È¤¤Ë¤Ï¡¢ ¤½¤ÎÇÛÎó¤Î¥µ¥¤¥º¤ËÀßÄê¤µ¤ì¤Þ¤¹¤¬¡¢¤â¤·ºÇÂç¥µ¥¤¥º¤¬¸«ÀÑ¤â¤ì¤ë¤Ê¤é¡¢¤¢¤é ¤«¤¸¤á¥µ¥¤¥º¤òÀßÄê¤·¤Æ¤ª¤¯¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£¥µ¥¤¥º¤ò»ØÄê¤·¤ÆÇÛÎó¤òºî ¤ë¤Ë¤Ï¡¢Pogo::Array::new ¥á¥½¥Ã¥É¤ò»È¤¤¤Þ¤¹¡£

$root->{sqrt} = new Pogo::Array 1000;
for(0..999) { $root->{sqrt}->[$_] = sqrt $_; }

¥Ï¥Ã¥·¥å¤Î¥µ¥¤¥º

$root->{smallhash} = new Pogo::Hash 8;
$root->{largehash} = new Pogo::Hash 1024;

¥µ¥¤¥º¤ò¾ÊÎ¬¤¹¤ë¤È¡¢256¤Ë¤Ê¤ê¤Þ¤¹¡£

H¥Ä¥ê¡¼

$root->{hugehash} = new Pogo::Htree 131072;

¥µ¥¤¥º¤ò¾ÊÎ¬¤¹¤ë¤È¡¢65536¤Ë¤Ê¤ê¤Þ¤¹¡£

B¥Ä¥ê¡¼

¤â¤¦¤Ò¤È¤Ä¤ÎµðÂç¥Ï¥Ã¥·¥å¤òºî¤ëÊýË¡¤Ï¡¢B ¥Ä¥ê¡¼¤Ç¤¹¡£B ¥Ä¥ê¡¼¤Ç¤Ï¡¢¥Ï¥Ã ¥·¥å¤Î¥¡¼¼«ÂÎ¤¬ B ¥Ä¥ê¡¼¤Î¥¡¼¤È¤Ê¤ê¤Þ¤¹¡£¤½¤Î¤¿¤á¤Ë¥¡¼¤Ï¼«Æ°Åª¤ËÀ° Îó¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î¥µ¥¤¥º¤Î¥µ¥¤¥º¤ÎÌäÂê ¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤½¤Î°ìÊý¤Ç¡¢Pogo ¤Î B ¥Ä¥ê¡¼¤Î¥¡¼º÷°ú¤Ï¥¡¼Ê¸»úÎó¤ÎÀèÆ¬ 8¥Ð¥¤¥È¤«¤éºî¤é¤ì¤ë¤¿¤á¡¢¤â¤·Â¿¤¯¤Î¥¡¼¤¬ÀèÆ¬8¥Ð¥¤¥È¤¬Æ±¤¸¤Ç¤¢¤ë¤È¡¢¤½ ¤Î¥¡¼¤Î¸¡º÷¤ÏÃÙ¤¯¤Ê¤ê¤Þ¤¹¡£B ¥Ä¥ê¡¼¤òºî¤ë¤Ë¤Ï¡¢Pogo::Btree::new ¥á¥½ ¥Ã¥É¤ò»È¤¤¤Þ¤¹¡£

$root->{btree} = new Pogo::Btree;

¥µ¥¤¥º¤Î»ØÄê¤ÏÉ¬Í×¤¢¤ê¤Þ¤»¤ó¡£

tie ¥¤¥ó¥¿¡¼¥Õ¥§¡¼¥¹¤Ç¤Ï¡¢¤¢¤ëÊ¸»úÎó¤ËÉôÊ¬°ìÃ×¤¹¤ë¥Ï¥Ã¥·¥å¥¡¼¤òÃµ¤¹¤È ¤¤¤¦¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£¤½¤ì¤Ë¤Ï¡¢Pogo::tied_object ¤È Pogo::Btree::find _key ¤ò»È¤¤¤Þ¤¹¡£

$foundkey = Pogo::tied_object($root->{btree})->find_key($string);

Pogo::tied_object ¤Ï¡¢¥Ç¡¼¥¿¤Î»²¾ÈÀè¤Ë tie ¤µ¤ì¤¿±£¤ì¤¿¥ª¥Ö¥¸¥§¥¯¥È¤ò ÊÖ¤·¤Þ¤¹¡£$root->{btree}¤¬ B ¥Ä¥ê¡¼¤Ç¤¢¤ì¤Ð¡¢Pogo::tied_object($root-> {btree}) ¤Ï Pogo::Btree ¥ª¥Ö¥¸¥§¥¯¥È¤Ë¤Ê¤ê¤Þ¤¹¡£¤½¤·¤Æ¡¢Pogo::Btree:: find_key ¥á¥½¥Ã¥É¤Ï¡¢»ØÄê¤µ¤ì¤¿Ê¸»úÎó¤ËÁ°ÊýÉôÊ¬°ìÃ×¤¹¤ë¥¡¼¤òÊÖ¤·¤Þ¤¹¡£

N¥Ä¥ê¡¼

B ¥Ä¥ê¡¼¤Ç¥¡¼¤òÀ°¿ôÃÍ¤È¤·¤Æ°·¤¤¤¿¤¤¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£¤Ä¤Þ¤ê¡¢¡Ö10¡×¤¬ ¡Ö2¡×¤è¤ê¸å¤Ë¤Ê¤ë¤è¤¦¤Ë¤·¤¿¤¤¡ÊB ¥Ä¥ê¡¼¤Ç¤ÏÊ¸»úÎó¤È¤·¤Æ°·¤¦¤Î¤ÇµÕ¤Ë¤Ê ¤ë¡Ë¡£¤½¤¦¤¤¤¦¾ì¹ç¤Ë¤Ï N ¥Ä¥ê¡¼¤ò»È¤¨¤Ð¡¢¥¡¼¤Ï long À°¿ôÃÍ¤È¤·¤Æ°·¤ï ¤ì¤Þ¤¹¡£¤½¤ÎÅÀ¤ò½ü¤±¤Ð B ¥Ä¥ê¡¼¤ÈÆ±¤¸¤Ç¤¹¡£

$root->{ntree} = new Pogo::Ntree;

¥ª¥Ö¥¸¥§¥¯¥È

SCALAR/ARRAY/HASH »²¾È¤À¤±¤ò»È¤Ã¤Æ¤¤¤ë Perl ¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ì¤Ð¡¢Pogo ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤Ç¤¤Þ¤¹¡£

sub Foo::new { bless {name => $_[1]}, $_[0]; }
sub Foo::name { $_[0]->{name}; }
$root->{obj} = new Foo "bar";
$obj = $root->{obj};            # $obj ¤Ï Foo ¥ª¥Ö¥¸¥§¥¯¥È
$name = $obj->name;             # $name ¤Ï "bar"

¤â¤·¡¢¥ª¥Ö¥¸¥§¥¯¥È¤Ç»È¤¦¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î¥µ¥¤¥º¤ò»ØÄê¤·¤¿¤«¤Ã¤¿¤ê¡¢ H ¥Ä¥ê¡¼¤ä B ¥Ä¥ê¡¼¤ò»È¤¤¤¿¤¤¤È¤¤¤¦¾ì¹ç¤Ï¡¢Pogo::Hash::new_tie¡¢Pogo:: Htree::new_tie¡¢Pogo::Btree::new_tie ¤Î¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¤¯¤À¤µ¤¤¡£

sub Bar::new {
    my($class, $name) = @_;
    my $self = new_tie Pogo::Htree 10000;
    $self->{name} = $name;
    bless $self, $class;
}

Pogo::*::new_tie ¤ò»È¤Ã¤¿¥¯¥é¥¹¤Ï Pogo ¥Ç¡¼¥¿¥Ù¡¼¥¹ÍÑ¤Ë¤Ê¤ë¤³¤È¤ËÃí°Õ ¤·¤Æ¤¯¤À¤µ¤¤¡£

¥È¥é¥ó¥¶¥¯¥·¥ç¥ó

¥Ç¡¼¥¿¥Ù¡¼¥¹Á´ÂÎ¤Ë¤Ä¤¤¤Æ¤Î¥È¥é¥ó¥¶¥¯¥·¥ç¥ó¤òÁàºî¤¹¤ë¤Ë¤Ï¡¢Pogo:: begin_transaction¡¢Pogo::abort_transaction¡¢Pogo::end_transaction ¤Î¥á ¥½¥Ã¥É¤ò»È¤¤¤Þ¤¹¡£

$root->{key} = 1;

$pogo->begin_transaction;
$root->{key} = 2;
$pogo->abort_transaction;    # Ãæ»ß: ¾å¤ÎÂåÆþ¤Ï¥¥ã¥ó¥»¥ë¤µ¤ì¤ë
$value = $root->{key};       # $value ¤Ï 1 ¤Î¤Þ¤Þ

$pogo->begin_transaction;
$root->{key} = 3;
$pogo->end_transaction;      # ½ªÎ»: ¾å¤ÎÂåÆþ¤ÏÍ¸ú
$value = $root->{key};       # $value ¤Ï 3

¥Ç¡¼¥¿Ëè¤Î¥È¥é¥ó¥¶¥¯¥·¥ç¥ó¤¬É¬Í×¤Ê¾ì¹ç¤Ï¡¢Pogo::atomic_call ¥á¥½¥Ã¥É¤ò »È¤¤¤Þ¤¹¡£

$root->{key} = \@array;
Pogo::atomic_call(\&sortarray, $root->{key});
sub sortarray { my $aref = shift; @$aref = sort @$aref; }

sortarray ¤¬¸Æ¤Ð¤ì¤Æ¤¤¤ë´Ö¡¢$root->{key}¤Ï¥í¥Ã¥¯¤µ¤ì¤Þ¤¹¡£½¾¤Ã¤ÆÂ¾¤Î¥Ç ¡¼¥¿¥Ù¡¼¥¹¥¯¥é¥¤¥¢¥ó¥È¤¬¥½¡¼¥È¤ò¼ÙËâ¤¹¤ë¤³¤È¤¬¤¢¤ê¤Þ¤»¤ó¤·¡¢¥½¡¼¥È¤¬Ãæ ÅÓÈ¾Ã¼¤Ë½ª¤ï¤ë¤È¤¤¤¦¤³¤È¤â¤¢¤ê¤Þ¤»¤ó¡£

¼õÆ°ÅªÆ°ºî

¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î¥Ç¡¼¥¿¤ò´Æ»ë¤·¡¢Â¾¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¥¯¥é¥¤¥¢¥ó¥È¤Ë¤è¤Ã¤Æ¤½ ¤Î¥Ç¡¼¥¿¤¬ÊÑ¹¹¤µ¤ì¤¿¤é²¿¤«¤Î½èÍý¤ò¤¹¤ë¡¢¤È¤¤¤¦¥¹¥¯¥ê¥×¥È¤¬É¬Í×¤Ê¾ì¹ç¤Ï¡¢ Pogo::wait_modification ´Ø¿ô¤ò»È¤¤¤Þ¤¹¡£

$result = Pogo::wait_modification($root->{key}, 5);

¤³¤ÎÊ¸¤¬¼Â¹Ô¤µ¤ì¤ë¤È¡¢$root->{key}¤¬Â¾¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¥¯¥é¥¤¥¢¥ó¥È¤Ë¤è¤Ã ¤ÆÊÑ¹¹¤µ¤ì¤ë¤«¡¢5ÉÃ·Ð¤Ä¤Þ¤Ç¡¢¼Â¹Ô¤Ï»ß¤Þ¤ê¤Þ¤¹¡£$result ¤Ï¡¢¥Ç¡¼¥¿¤¬ÊÑ ¹¹¤µ¤ì¤¿¾ì¹ç¤Ï1¡¢»þ´ÖÀÚ¤ì¤Î¾ì¹ç¤Ï0¤Ë¤Ê¤ê¤Þ¤¹¡£

¥Ç¡¼¥¿¥Ù¡¼¥¹¥Ö¥é¥¦¥¶

Pogo ¤Ë¤Ï Pogo ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎÆâÍÆ¤òÇÁ¤¯¥¹¥¯¥ê¥×¥È browse ¤¬ÉÕÂ°¤·¤Æ¤¤ ¤Þ¤¹¡£test.cfg ¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤òÇÁ¤¯¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¼Â¹Ô¤·¤Þ¤¹¡£

browse test

¤¹¤ë¤È¡¢browse¤Ï¼¡¤Î¤è¤¦¤ËÉ½¼¨¤·¤Æ¡¢¥³¥Þ¥ó¥ÉÆþÎÏ¤òÂÔ¤Á¤Þ¤¹¡£

test.cfg opened
root=(HASH(Btree)(10000))>

¡Öls¡×¤ÈÆþÎÏ¤¹¤ë¤È¥ë¡¼¥È B ¥Ä¥ê¡¼¥Ï¥Ã¥·¥å¤ÎÆâÍÆ¤¬Îã¤¨¤Ð¼¡¤Î¤è¤¦¤Ë¸«¤é ¤ì¤Þ¤¹¡£Â¾¤Î¥Ç¡¼¥¿¤Ø¤Î»²¾È¤Ë¤Ä¤¤¤Æ¤Ï¥¯¥é¥¹Ì¾¡¢¥Ç¡¼¥¿¼ïÊÌ¡¢¥ª¥Ö¥¸¥§¥¯¥È ID ¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£

{aobj} = Aclass(HASH(Hash)(1012d))
{index} = (HASH(Btree)(10282))
{list} = (ARRAY(10036))
{name} = "test"

¤³¤³¤Ç¡Öcd index¡×¤ÈÆþÎÏ¤¹¤ë¤È¡¢¸½ºß°ÌÃÖ¤¬ $root->{index}¤Ë¤Ê¤ê¡¢¥×¥í ¥ó¥×¥È¤Ï¼¡¤Î¤è¤¦¤ËÊÑ¤ï¤ê¤Þ¤¹¡£

root{index}=(HASH(Btree))>

¡Öcd¡×¤ÈÆþÎÏ¤¹¤ë¤È¥ë¡¼¥È¤ËÌá¤ê¤Þ¤¹¡£¡Öcd ..¡×¤ÈÆþÎÏ¤¹¤ë¤È¿Æ¤ËÌá¤ê¤Þ¤¹¡£ ¡Öexit¡×¤Ç½ªÎ»¤Ç¤¹¡£

¥á¥½¥Ã¥É

$pogo = Pogo->new [config_filename]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£config_filename ¤¬ »ØÄê¤µ¤ì¤Æ¤¤¤ë¤È¡¢¤½¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Ë½¾¤Ã¤ÆÆ°ºî¤·¤Æ¤¤¤ë GOODS ¥µ¡¼¥Ð¡¼ ¤ËÀÜÂ³¤·¤Þ¤¹¡£ÂÐ±þ¤¹¤ë GOODS ¥µ¡¼¥Ð¡¼¤ÏÆ°ºîÃæ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

$pogo->open config_filename

¤â¤· Pogo ¥ª¥Ö¥¸¥§¥¯¥È¤¬¤Þ¤À GOODS ¥µ¡¼¥Ð¡¼¤ËÀÜÂ³¤·¤Æ¤¤¤Ê¤±¤ì¤Ð¡¢¤³¤Î ¥á¥½¥Ã¥É¤ÇÀÜÂ³¤·¤Þ¤¹¡£

$pogo->close

$pogo->opened

Pogo ¥ª¥Ö¥¸¥§¥¯¥È¤¬ GOODS ¥µ¡¼¥Ð¡¼¤ËÀÜÂ³¤·¤Æ¤¤¤ì¤Ð 1¡¢ÀÜÂ³¤·¤Æ¤¤¤Ê¤±¤ì ¤Ð 0 ¤òÊÖ¤·¤Þ¤¹¡£

$pogo->root

¥ë¡¼¥ÈB¥Ä¥ê¡¼¤ËÂÐ±þ¤·¤¿Pogo::Btree¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£

$pogo->root_tie

¥ë¡¼¥È B ¥Ä¥ê¡¼¤ËÂÐ±þ¤·¤¿ Pogo::Btree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¤½¤ì¤Ë tie ¤µ¤ì¤¿¥Ï¥Ã¥·¥å¤Ø¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£

$pogo->begin_transaction

¥È¥é¥ó¥¶¥¯¥·¥ç¥ó¤ò³«»Ï¤·¤Þ¤¹¡£

$pogo->abort_transaction

¥È¥é¥ó¥¶¥¯¥·¥ç¥ó¤òÃæ»ß¤·¤Þ¤¹¡£

$pogo->end_transaction

¥È¥é¥ó¥¶¥¯¥·¥ç¥ó¤ò½ªÎ»¤·¤Þ¤¹¡£

$obj = Pogo::Scalar->new [pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Scalar ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£Pogo ¥ª¥Ö¥¸ ¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤Þ¤¹¡£

$scalarref = Pogo::Scalar->new_tie [pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Scalar ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¥¹¥«¥é¤ò¤½¤ì¤Ë tie ¤·¡¢ ¤½¤Î¥¹¥«¥é¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬»ØÄê¤µ¤ì¡¢¤½¤ì¤¬¤¹¤Ç ¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ ¤ì¤Þ¤¹¡£¥¯¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î ¥¯¥é¥¹Ì¾¤Ç bless ¤µ¤ì¤Þ¤¹¡£

$obj = Pogo::Array->new [size ,pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î Pogo::Array ¥ª¥Ö¥¸¥§¥¯¥È¤òºî ¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£size ¤¬¾ÊÎ¬¤µ¤ì¤ë¤È¡¢1¤Ë¤Ê¤ê¤Þ¤¹¡£Pogo ¥ª¥Ö¥¸¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤Þ¤¹¡£

$arrayref = Pogo::Array->new_tie [size ,pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î Pogo::Array ¥ª¥Ö¥¸¥§¥¯¥È¤òºî ¤ê¡¢ÇÛÎó¤ò¤½¤ì¤Ë tie ¤·¡¢¤½¤ÎÇÛÎó¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£ size ¤¬¾ÊÎ¬¤µ¤ì¤ë ¤È¡¢1¤Ë¤Ê¤ê¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬»ØÄê¤µ¤ì¡¢¤½¤ì¤¬¤¹¤Ç¤Ë¥Ç¡¼¥¿¥Ù ¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Þ¤¹¡£¥¯ ¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥¯¥é¥¹Ì¾ ¤Ç bless ¤µ¤ì¤Þ¤¹¡£

$obj = Pogo::Hash->new [size ,pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î Pogo:: Hash ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£size ¤¬¾ÊÎ¬¤µ¤ì¤ë¤È¡¢256 ¤Ë¤Ê¤ê¤Þ¤¹¡£ Pogo ¥ª¥Ö¥¸¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì ¤Þ¤¹¡£

$hashref = Pogo::Hash->new_tie [size ,pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î Pogo:: Hash ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¥Ï¥Ã¥·¥å¤ò¤½¤ì¤Ë tie ¤·¡¢¤½¤Î¥Ï¥Ã¥·¥å¤Î»²¾È¤ò ÊÖ¤·¤Þ¤¹¡£size ¤¬¾ÊÎ¬¤µ¤ì¤ë¤È¡¢256 ¤Ë¤Ê¤ê¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬ »ØÄê¤µ¤ì¡¢¤½¤ì¤¬¤¹¤Ç¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢Æ±¤¸¥Ç¡¼ ¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Þ¤¹¡£¥¯¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥¯¥é ¥¹Ì¾¤Ç bless ¤µ¤ì¤Þ¤¹¡£

$obj = Pogo::Htree->new [size ,pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î Pogo:: Htree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£size ¤¬¾ÊÎ¬¤µ¤ì¤ë¤È¡¢ 65536 ¤Ë¤Ê¤ê ¤Þ¤¹¡£Pogo ¥ª¥Ö¥¸¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³Ê Ç¼¤µ¤ì¤Þ¤¹¡£

$hashref = Pogo::Htree->new_tie [size ,pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£size ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Î¥Ï¥Ã¥·¥å¥¨¥ó¥È¥êÉ½¤Î Pogo:: Htree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¥Ï¥Ã¥·¥å¤ò¤½¤ì¤Ë tie ¤·¡¢¤½¤Î¥Ï¥Ã¥·¥å¤Î»²¾È ¤òÊÖ¤·¤Þ¤¹¡£size ¤¬¾ÊÎ¬¤µ¤ì¤ë¤È¡¢ 65536 ¤Ë¤Ê¤ê¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬»ØÄê¤µ¤ì¡¢¤½¤ì¤¬¤¹¤Ç¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢ Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Þ¤¹¡£¥¯¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢ ¤½¤Î¥¯¥é¥¹Ì¾¤Ç bless ¤µ¤ì¤Þ¤¹¡£

$obj = Pogo::Btree->new [pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Btree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£Pogo ¥ª¥Ö¥¸ ¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤Þ¤¹¡£

$hashref = Pogo::Btree->new_tie [pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Btree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¥Ï¥Ã¥·¥å¤ò¤½¤ì¤Ë tie ¤·¡¢¤½¤Î¥Ï¥Ã¥·¥å¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬»ØÄê¤µ¤ì¡¢¤½¤ì ¤¬¤¹¤Ç¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿ ¥Ã¥Á¤µ¤ì¤Þ¤¹¡£¥¯¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥¯¥é¥¹Ì¾¤Ç bless ¤µ ¤ì¤Þ¤¹¡£

$obj = Pogo::Ntree->new [pogoobj]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Ntree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤ÆÊÖ¤·¤Þ¤¹¡£Pogo ¥ª¥Ö¥¸ ¥§¥¯¥È pogoobj ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤Þ¤¹¡£

$hashref = Pogo::Ntree->new_tie [pogovar ,class]

¥¯¥é¥¹¥á¥½¥Ã¥É¡£Pogo::Ntree ¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ê¡¢¥Ï¥Ã¥·¥å¤ò¤½¤ì¤Ë tie ¤·¡¢¤½¤Î¥Ï¥Ã¥·¥å¤Î»²¾È¤òÊÖ¤·¤Þ¤¹¡£Pogo ¤ÎÊÑ¿ô pogovar ¤¬»ØÄê¤µ¤ì¡¢¤½¤ì ¤¬¤¹¤Ç¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿¥Ã¥Á¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¥¢¥¿ ¥Ã¥Á¤µ¤ì¤Þ¤¹¡£¥¯¥é¥¹Ì¾ class ¤ò»ØÄê¤·¤¿¾ì¹ç¤Ï¡¢¤½¤Î¥¯¥é¥¹Ì¾¤Ç bless ¤µ ¤ì¤Þ¤¹¡£

¥Î¡¼¥È¡§¤³¤ì¤é¤Î Pogo::*::new ¤ä Pogo::*::new_tie ¥á¥½¥Ã¥É¤Çºî¤é¤ì¤¿¥ª ¥Ö¥¸¥§¥¯¥È¤Ï¡¢¥á¥â¥ê¾å¤Ë¤¢¤ê¡¢¤Þ¤À±ÊÂ³Åª¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£´ûÂ¸¤Î±ÊÂ³¥Ç¡¼ ¥¿¤Ë»²¾È¤µ¤ì¤¿»þ¤Ë»Ï¤á¤Æ¡¢±ÊÂ³¥Ç¡¼¥¿¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢°ú¿ô¤Ë Pogo ¥ª¥Ö ¥¸¥§¥¯¥È¤ò»ØÄê¤¹¤ë¤È¡¢¤½¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë³ÊÇ¼¤µ¤ì¤Þ¤¹¤¬¡¢¤ä¤Ï¤ê´ûÂ¸¤Î±Ê Â³¥Ç¡¼¥¿¤Ë»²¾È¤µ¤ì¤Æ»Ï¤á¤Æ¿¿¤Ë±ÊÂ³¥Ç¡¼¥¿¤Ë¤Ê¤ê¤Þ¤¹¡£

¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼´Ø¿ô

Pogo::type_of

»ØÄê¤µ¤ì¤¿Pogo¥Ç¡¼¥¿¤Î»²¾È¥¿¥¤¥×¡¢¥¯¥é¥¹Ì¾¡¢tie¥¯¥é¥¹Ì¾¤òÊÖ¤·¤Þ¤¹¡£

($reftype, $class, $tiedclass) = Pogo::type_of($root->{key});

Îã¤¨¤Ð¼¡¤Î¤è¤¦¤ÊÃÍ¤¬ÆÀ¤é¤ì¤Þ¤¹¡£

() : »²¾È¤Ç¤Ê¤¤
('ARRAY', '', 'Pogo::Array') : ÇÛÎó
('HASH', '', 'Pogo::Btree') : B¥Ä¥ê¡¼¥Ï¥Ã¥·¥å
('HASH', 'Aclass', 'Pogo::Hash') : Aclass¥ª¥Ö¥¸¥§¥¯¥È

Pogo::tied_object

»ØÄê¤µ¤ì¤¿Pogo¥Ç¡¼¥¿¤Î»²¾ÈÀè¤¬tie¤µ¤ì¤¿Pogo::*¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£

Pogo::equal

Æó¤Ä¤Î Pogo ¥Ç¡¼¥¿¤ò°ú¿ô¤Ë¤È¤Ã¤Æ¡¢¤½¤ì¤¬Æ±¤¸¥Ç¡¼¥¿¥Ù¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤ò »Ø¤¹¤Ê¤é1¡¢°ã¤¦¤Ê¤é0¤òÊÖ¤·¤Þ¤¹¡£

Pogo::object_id

»ØÄê¤µ¤ì¤¿Pogo¥Ç¡¼¥¿¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥ÈID¤òÊÖ¤·¤Þ¤¹¡£

Pogo::atomic_call

$result = Pogo::atomic_call(\&func, $data, @args);

\&func ¤Ï¥µ¥Ö¥ë¡¼¥Á¥ó»²¾È¡¢$data ¤Ï Pogo ¥Ç¡¼¥¿¤Ç¤¹¡£$data ¤Ï¼Â¹ÔÃæ¥í ¥Ã¥¯¤µ¤ì¤Þ¤¹¡£¥í¥Ã¥¯¤¬¤ª¤³¤Ê¤ï¤ì¤ëÅÀ¤ò½ü¤±¤Ð¡¢¼¡¤ÈÆ±¤¸¤Ç¤¹¡£

$result = func($data, @args);

func¤Ï¥¹¥«¥é¥³¥ó¥Æ¥¥¹¥È¤Ç¸Æ¤Ð¤ì¡¢ÊÖ¤êÃÍ¤ÏÀ°¿ô¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£

Pogo::wait_modification

»ØÄê¤µ¤ì¤¿¥Ç¡¼¥¿¤¬Â¾¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¥¯¥é¥¤¥¢¥ó¥È¤Ë¤è¤Ã¤ÆÊÑ¹¹¤µ¤ì¤ë¤«¡¢¤¢ ¤ë¤¤¤Ï»ØÄê¤µ¤ì¤¿ÉÃ¿ô·Ð¤Ä¤Þ¤ÇÂÔ¤Á¤Þ¤¹¡£¥Ç¡¼¥¿¤¬ÊÑ¹¹¤µ¤ì¤¿¾ì¹ç¤Ï1¡¢»þ´Ö ÀÚ¤ì¤Î¾ì¹ç¤Ï0¤òÊÖ¤·¤Þ¤¹¡£

$result = Pogo::wait_modification($data, $sec);

Pogo::get_root_tie

°ú¿ô¤Ë»ØÄê¤µ¤ì¤¿ Pogo ¥Ç¡¼¥¿¤«¤é¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥ë¡¼¥È B ¥Ä¥ê¡¼¤ËÂÐ±þ ¤·¤¿ Pogo::Btree ¥ª¥Ö¥¸¥§¥¯¥È¤òÆÀ¤Æ¡¢¤½¤ì¤Ë tie ¤µ¤ì¤¿¥Ï¥Ã¥·¥å¤Ø¤Î»²¾È ¤òÊÖ¤·¤Þ¤¹¡£

$root = Pogo::get_root_tie($pogovar);

Äã¥ì¥Ù¥ë¥á¥½¥Ã¥É

Pogo::Var

Pogo::Var ¤Ï¡¢°Ê²¼¤Î Pogo::*¥¯¥é¥¹·²¤¹¤Ù¤Æ¤ÎÃê¾Ý´ðËÜ¥¯¥é¥¹¤Ç¤¹¡£Pogo:: Var ¥ª¥Ö¥¸¥§¥¯¥È¤Ï»È¤¨¤Þ¤»¤ó¡£

Pogo::Var::get_class
Pogo::Var::set_class
Pogo::Var::begin_transaction
Pogo::Var::abort_transaction
Pogo::Var::end_transaction
Pogo::Var::root
Pogo::Var::root_tie
Pogo::Var::call
Pogo::Var::equal
Pogo::Var::wait_modification
Pogo::Var::object_id

Pogo::Scalar

Pogo::Scalar::get
Pogo::Scalar::set

Pogo::Array

Pogo::Array::get
Pogo::Array::set
Pogo::Array::get_size
Pogo::Array::set_size
Pogo::Array::clear
Pogo::Array::push
Pogo::Array::pop
Pogo::Array::insert
Pogo::Array::remove

Pogo::Hash

Pogo::Hash::get
Pogo::Hash::set
Pogo::Hash::exists
Pogo::Hash::remove
Pogo::Hash::clear
Pogo::Hash::first_key
Pogo::Hash::next_key

Pogo::Htree

Pogo::Htree::get
Pogo::Htree::set
Pogo::Htree::exists
Pogo::Htree::remove
Pogo::Htree::clear
Pogo::Htree::first_key
Pogo::Htree::next_key

Pogo::Btree, Pogo::Ntree

°Ê²¼¤Î¥á¥½¥Ã¥É¤ÏPogo::Ntree¤Ç¤âÆ±¤¸

Pogo::Btree::get
Pogo::Btree::set
Pogo::Btree::exists
Pogo::Btree::remove
Pogo::Btree::clear
Pogo::Btree::first_key
Pogo::Btree::last_key
Pogo::Btree::next_key
Pogo::Btree::prev_key
Pogo::Btree::find_key

Äã¥ì¥Ù¥ë¥¯¥é¥¹¤ÎÇÉÀ¸¤È¥á¥½¥Ã¥É¤Î¥Õ¥Ã¥¯

Îã¤¨¤ÐPogo::Array::set¥á¥½¥Ã¥É¤ò¥Õ¥Ã¥¯¤·¤¿¤¤¾ì¹ç¤Ï¼¡¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

# MyArray.pm
package MyArray;
@ISA = qw(Pogo::Array);
%HOOK = (set => \&set_hook);  # set() ¥á¥½¥Ã¥É¤ò set_hook() ¤Ç¥Õ¥Ã¥¯
sub set_hook {
  my($self, $idx, $value) = @_;
  do_something($self, $idx, $value);
  1;     # µ¶¤òÊÖ¤¹¤È¸µ¤Î¥á¥½¥Ã¥É¤Ï¸Æ¤Ð¤ì¤Ê¤¤
}
...
1;

¤½¤·¤Æ¼¡¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

use MyArray;
$obj = new MyArray;
$obj->set(0, "value"); # set_hook($obj, 0, "value") ¤È Pogo::Array::set($obj, 0, "value") ¤¬¸Æ¤Ð¤ì¤ë

AUTHOR

ÃæÅç Ì÷ <nakajima@netstock.co.jp>

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)