#!perl
#
# Characters.pl

use strict;
use warnings;
use open qw( :utf8 :std );

use DBI qw( data_string_desc );
use Encode qw( decode_utf8 );
use English qw( -no_match_vars );

my $mdb = 'Characters.mdb';
my $dsn = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$mdb";
my $dbh = DBI->connect($dsn, '', '', {
    PrintError => 0,
    RaiseError => 1,
});

my $query = q(
    SELECT
        Windows1252Encoding,
        UnicodeCodePoint, 
        UnicodeCharacter,
        UnicodeUTF8Encoding,
        UnicodeName
    FROM
        Characters
    ORDER BY
        Windows1252Encoding
);

my $sth = $dbh->prepare($query);

$sth->execute();

local $OUTPUT_RECORD_SEPARATOR = "\n";
local $OUTPUT_FIELD_SEPARATOR  = "\t";

while (my $row = $sth->fetchrow_hashref()) {
    $row->{UnicodeCharacter} = decode_utf8($row->{UnicodeCharacter});

    print $row->{Windows1252Encoding},
          $row->{UnicodeCodePoint}, 
          $row->{UnicodeCharacter},
          $row->{UnicodeUTF8Encoding},
          $row->{UnicodeName},
          data_string_desc($row->{UnicodeCharacter});
}

$dbh->disconnect();

exit 0;

##</code><code>##

    $row->{UnicodeCharacter} = decode_utf8($row->{UnicodeCharacter});