Bdb. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marc Lehmann
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.goof.com/pcg/marc/
Bdb. ű×
Bdb. ¼³¸í
ºñµ¿±â ¹öŬ¸® DB ¾×¼¼½º BDB´Â ºñµ¿±â Berkeley DB Access.Synopsis BDB¸¦ »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ³» $ env = db_env_create; mkdir "bdtest", 0700; db_env_open $ env, "bdtest", bdb :: init_lock | BDB :: init_log | BDB :: init_mpool | BDB :: init_txn | BDB :: Recover | BDB :: use_environ | BDB :: CREATE, 0600; $ env-> set_flags (bdb :: auto_commit | bdb :: txn_nosync, 1); ³» $ db = db_create $ env; db_open $ db, undef, "table", undef, bdb :: btree, bdb :: auto_commit | BDB :: Create | BDB :: READ_UNCOMMITTED, 0600; db_put $ db, undef, "key", "data", 0, sub {db_del $ db, undef, "Å°"; }; db_sync $ db; # ¶ÇÇÑ Coro¸¦ »ç¿ëÇÏ¸é °ü¸®°¡ ½±½À´Ï´Ù : Coro :: BDB; # AnyEvent¿Í ÀÚµ¿ À̺¥Æ® ·çÇÁ ÅëÇÕ : AnyEvent :: BDB; # ÀÚµ¿ °á°ú ó¸® EV : ³» $ watcher = ev :: io bdb :: poll_fileno, ev :: Read, \ bdb :: poll_cb; # glib : add_watch glib :: io bdb :: poll_fileno, in => sub {bdb :: poll_cb; 1 }; # ¶Ç´Â ´Ü¼øÈ÷ ¼öµ¿À¸·Î BDB :: Ç÷¯½Ã; ¿ä±¸ »çÇ× : ¡¤ Perl.
Bdb. °ü·Ã ¼ÒÇÁÆ®¿þ¾î