--- demerphq
my friends call me, usually because I'm late....

I tried following code without success. Looks like return only octets instead of string...

(tied %data)->filter_fetch_key( sub { decode('utf8', $_); } );
print join(', ', keys %data), "\n";
[download]

But this code produces correct output

print join(', ', map { decode('utf8', $_) } keys %data), "\n";

Another hint?

Well i would guess that you need to encode the data as you put it in the DB and then decode it when you take it out. The code you have posted suggests that you are trying to extract from a DB created without using an appropriate filter_store_key(). I would delete the db, construct the appropriate store and fetch filters and then try rebuilding it.

Im sorry I cant help more than that, im not too familiar with the ins and outs of UTF8, but this is definately where I would start to try to solve the problem.

--- demerphq
my friends call me, usually because I'm late....

Code with suggested modifications seems does not work I expected. Another suggestion or advice?

update: fixed code to be correctly working with unicode keys

#!/usr/bin/perl_parallel -w
# For Emacs: -*- mode:cperl; mode:folding; coding:utf-8; -*-

use strict;
use utf8;
use DB_File;
use MLDBM qw (DB_File Storable);         # ) 
use Fcntl;

my $dbfile = 'database.utf';
my %data = ();

# remove old file to be sure we have only new data
unlink $dbfile if -f $dbfile;

tie ( %data, 'MLDBM', $dbfile, O_CREAT | O_RDWR, 0666, $DB_BTREE ) || 
+die $!;

# try to handle unicode by transforming to octets and back
(tied %data)->filter_store_key( sub { $_ = encode('utf8', $_); } );
(tied %data)->filter_fetch_key( sub { $_ = decode('utf8', $_); } );

open DATA, '<:utf8', 'input.utf8' or die $!;
while (<DATA>) {
  chomp;
  my ($key, $value) = split(':', $_, 2);
  $data{$key} = $value;
}
close DATA;

# now we can obtain keys as unicode strings and no only octets
print join(', ', keys %data), "\n";

untie %data;

exit 0;
[download]