Обработка текста в кодировке UTF8 в SQLite с использованием Rose :: DB :: Object

Question

Я использую Rose :: DB :: Object , SQLite и текст на китайском языке.Мои классы выглядят так:

package My::DB;

use base qw(Rose::DB);

__PACKAGE__->use_private_registry;

__PACKAGE__->register_db(
  driver   => 'sqlite',
  database => 'data/sqmple.db',
);

package Motorcycle;

use My::DB;

use base qw(Rose::DB::Object); 
...
sub init_db { My::DB->new() };

Код, используемый для хранения записи:

Motorcycle->new(
  type  => $self->param('type'),
  brand => $self->param('brand'),
  color => $self->param('color'),
)->save;

Код, используемый для отображения данных (из приложения Mojolicious):

<td><%= Mojo::ByteStream->new($cycle->type)->decode("utf-8") %></td>
<td><%= Mojo::ByteStream->new($cycle->brand)->decode("utf-8") %></td>
<td><%= Mojo::ByteStream->new($cycle->color)->decode("utf-8") %></td>

Как я могу исключить этап декодирования?Вместо этого я хотел бы, чтобы код дисплея был таким:

<td><%= $cycle->type %></td>
<td><%= $cycle->brand %></td>
<td><%= $cycle->color %></td>

Answer 1

Я думаю, что вам нужно получить значение конфигурации sqlite_unicode => 1 до SQLite, был похожий вопрос о UTF-8 и SQLite, установка sqlite_unicode справилась с этой задачей.

Я не думаю, что Rose :: DB :: SQLite поддерживает этот параметр конфигурации.Исходя из этой, возможно, аналогичной проблемы с MySQL , вы могли бы исправить патч Rose :: DB :: SQLite для добавления поддержки sqlite_unicode, добавив в драйвер:

sub sqlite_unicode {
{
  shift->dbh_attribute_boolean('sqlite_unicode', @_)
}

Я оставлю комментарий к ответу Джона, чтобы он мог здраво проверить это.

Если это сработает, вы можете послать патч Джону Сиракузе (который уже не только по этому вопросу, но и Розе:: Сопровождающий БД).

Answer 2

Если вы вводите кодированный в UTF8 текст в SQLite, он должен вернуть его вам в той же форме.Например, для базы данных SQLite с именем test.db, содержащей следующую схему:

CREATE TABLE things
(
  id   INTEGER PRIMARY KEY AUTOINCREMENT,
  name VARCHAR(64) NOT NULL
);

Запустите этот код в сценарии в том же каталоге, что и база данных test.db:

package My::DB;

use base qw(Rose::DB);

__PACKAGE__->use_private_registry;

__PACKAGE__->register_db
(
  driver   => 'sqlite',
  database => 'test.db',
);

package My::Thing;

use base qw(Rose::DB::Object); 

__PACKAGE__->meta->setup
(
  table   => 'things',
  columns =>
  [
    id   => { type => 'serial', primary_key => 1, not_null => 1 },
    name => { type => 'text', length => 64, not_null => 1 },
  ],
);

sub init_db { My::DB->new }

package main;

# Set the name to a UTF8-encoded smiley: Unicode 0x263A
my $thing = My::Thing->new(name => "\x{e2}\x{98}\x{ba}")->save; 

$thing = My::Thing->new(id => $thing->id)->load;

# This will print the UTF8-encoded smiley; make sure your
# terminal can handle UTF8 output.
print $thing->name, "\n";

Если это не работает для вас, то, возможно, ваши вызовы для получения параметров формы (например, $self->param('type')) возвращают символьные строки вместо строк в кодировке UTF8.То есть в случае строки смайлика, возможно, $self->param('foo') возвращает «\ x {263a}», а не «\ x {e2} \ x {98} \ x {ba}».В этом случае решением было бы закодировать строки как UTF8 перед установкой атрибутов объекта:

Motorcycle->new(
  type  => utf8::encode($self->param('type')),
  brand => utf8::encode($self->param('brand')),
  color => utf8::encode($self->param('color')),
)->save;