Encoded_GDBM_File - Wrapper class of GDBM_File
use Encoded_GDBM_File;
use encoding "euc-jp";
tie( %hash, 'Encoded_GDBM_File', $dbfile, &GDBM_WRCREAT, 0640 ) or die;
$hash{"¥،¼"} = "أح";
while( my( $key, $value ) = each %hash ){
print "$key:$value\n";
}
Because Perl-5.8 uses Unicode as an internal representation of characters, it is necessary either to encode or to decode keys and values when accessing databases.
This class is designed to resolve these troubles, and encode keys and values transparently when fetching them from a database or storing them into it.
When using this class, it is necessary to specify the coding system,
which is used in your database, with encoding pragma. If there is
no encoding pragma in the script, this class does no conversion.
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, you can either send email to this program's maintainer or write to: The Free Software Foundation, Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
Last Update: $Date: 2004/01/29 08:37:08 $