Juman::GDBM_File

 use Juman::GDBM_File;
 use encoding "euc-jp";
 tie( %hash, 'Juman::GDBM_File', $dbfile, &GDBM_WRCREAT, 0640 ) or die;
 $hash{"XX"} = "X";
 while( my( $key, $value ) = each %hash ){
     print "$key:$value\n";
 }

Perl-5.8.x XXXXXXXXXXX Unicode XXXXXXXXXXXXXX XX EUC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX encode/decode XX XXXXXXX

XX "Juman::GDBM_File" XXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX encode/decode XXXX

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "encoding" XXXXXXXXXX"encoding" XXXXXXXXXXXXX XXXXXXXXXXXXXXXXXX

"GDBM_File" XXXXXXXXXXXXXXXXXXX

    tie( %hash, 'Juman::GDBM_File', $dbfile, &GDBM_WRCREAT, 0640 );

X5XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXX

X5XXXXXXXXXXX"DB_File" XXXXXXXXXXXXXXXXX XX

    tie( %hash, 'Juman::GDBM_File', $dbfile, &O_CREAT );

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX4XXXXX "O_CREAT", "O_RDWR" XX "DB_File" XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "umask" XXXXXXXXXXXXXXXX

• GDBM_File
• perltie

XX XX <tsuchiya@pine.kuee.kyoto-u.ac.jp>

Hey! The above document had some coding errors, which are explained below:

Around line 22:

Non-ASCII character seen before =encoding in '$hash{"XX"}'. Assuming UTF-8

Around line 149:

=over without closing =back