Juman::GDBM_File - Wrapper class of GDBM_File
use Juman::GDBM_File; use encoding "euc-jp"; tie( %hash, 'Juman::GDBM_File', $dbfile, &GDBM_WRCREAT, 0640 ) or die; $hash{"ź»ú"} = "ÃÍ"; while( my( $key, $value ) = each %hash ){ print "$key:$value\n"; }
Perl-5.8.x ¤ÏÆâÉôʸ»ú¥³¡¼¥É¤È¤·¤Æ Unicode ¤òºÎÍѤ·¤Æ¤¤¤ë¡¥¤½¤Î¤¿¤á¡¤Æü Ëܸì EUC ¤Çµ½Ò¤µ¤ì¤¿¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ò»²¾È¤¹¤ë¾ì¹ç¤Ë¤Ï¡¤Åº»ú¤äÃÍ ¤ò½ñ¤¹þ¤ó¤À¤ê¡¤ÆÉ¤ß½Ð¤·¤¿¤ê¤¹¤ëÁ°¤Ë¡¤¾ï¤ËÌÀ¼¨Åª¤Ë encode/decode ¤ò¹Ô ¤¦É¬Íפ¬¤¢¤ë¡¥
¤³¤Î Juman::GDBM_File
¥¯¥é¥¹¤Ï¡¤ÆÃÄê¤Îʸ»ú¥³¡¼¥É¤ÇÊݸ¤µ¤ì¤Æ¤¤¤ë¥Ç¡¼
¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ò°·¤¦¤¿¤á¤Ë¡¤Æ©²áŪ¤Ë encode/decode ¤ò¹Ô¤¦¡¥
¤³¤Î¥¯¥é¥¹¤òÍøÍѤ¹¤ë»þ¤Ï¡¤¥Ç¡¼¥¿¥Ù¡¼¥¹¤È¤ÎÆþ½ÐÎÏ»þ¤Ë»È¤¦Ê¸»ú¥³¡¼¥É¤ò¡¤
encoding
¥×¥é¥°¥Þ¤Ç»ØÄꤹ¤ë¡¥encoding
¥×¥é¥°¥Þ¤Ë¤è¤ë»ØÄ꤬¸ºß¤·
¤Ê¤¤¾ì¹ç¤Ï¡¤¤Þ¤Ã¤¿¤¯ÊÑ´¹¤ò¹Ô¤ï¤Ê¤¤¡¥
GDBM_File
¤ÈƱ°ì¤Î½ñ¼°¤Ç¡¤Ï¢ÁÛÇÛÎó¤òºîÀ®¤Ç¤¤ë¡¥
tie( %hash, 'Juman::GDBM_File', $dbfile, &GDBM_WRCREAT, 0640 );
Âè5°ú¿ô¤Ë¤Ï¡¤¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ò¿·µ¬ºîÀ®¤¹¤ë¾ì¹ç¤Î¥Õ¥¡¥¤¥ë°À¤¬»Ø Äꤵ¤ì¤Æ¤¤¤ë¡¥
Âè5°ú¿ô¤ò¾Êά¤·¤¿¾ì¹ç¤Ï¡¤DB_File
¸ß´¹¤Î½ñ¼°¤¬»È¤ï¤ì¤Æ¤¤¤ë¤È¸«¤Ê¤µ¤ì
¤ë¡¥
tie( %hash, 'Juman::GDBM_File', $dbfile, &O_CREAT );
¤³¤Î¾ì¹ç¡¤¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ò³«¤¯¥â¡¼¥É¤ò»ØÄꤷ¤Æ¤¤¤ëÂè4°ú¿ô¤Ë¤Ï¡¤
O_CREAT
, O_RDWR
¤Ê¤É DB_File
·Á¼°¤Î¥Ç¡¼¥¿¥Ù¡¼¥¹¤ò³«¤¯»þ¤ÈƱ¤¸
»ØÄê¤ò»È¤¦¡¥¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ò¿·µ¬ºîÀ®¤¹¤ë¾ì¹ç¤Î¥Õ¥¡¥¤¥ë°À¤Ï¡¤
umask
¤ÎÊÖ¤êÃͤ«¤é¼«Æ°Åª¤Ë»»½Ð¤µ¤ì¤ë¡¥