Помогите решить проблему кодировки!

Работаю с unicode, MySQL 4.0 и Perl 5.8
Кодировка таблиц в в базе данных в utf8. В срипте подключаю классы:

use Encode 'from_to';
use utf8;

С помощью CHARACTER SET cp1251_koi8 объявляю, что идёт русский текст:

my $sth = $dbh_r->prepare("set CHARACTER SET cp1251_koi8;");
$sth->execute();

Затем считываю из БД информацию на русском:

while (my $row = $sth -> fetchrow_arrayref){
...
Encode::from_to($row->[1], "cp1251", "utf-8");
...
}

Проблема в том, что не получается записать в БД русский текст, хотя считывать получается без проблем.

flipersПомогите решить проблему кодировки!

Работаю с unicode, MySQL 4.0 и Perl 5.8
Кодировка таблиц в в базе данных в utf8. В срипте подключаю классы:

use Encode 'from_to';
use utf8;

С помощью CHARACTER SET cp1251_koi8 объявляю, что идёт русский текст:

my $sth = $dbh_r->prepare("set CHARACTER SET cp1251_koi8;");
$sth->execute();

Затем считываю из БД информацию на русском:

while (my $row = $sth -> fetchrow_arrayref){
...
Encode::from_to($row->[1], "cp1251", "utf-8");
...
}

Проблема в том, что не получается записать в БД русский текст, хотя считывать получается без проблем.


добавление: записываю в базу данных так:

$dbh_r->do( "INSERT INTO test_table_new VALUES(NULL,'$row->[1]');");

пожaлуйста, подскaжите, что делaю не так или не делaю?
заранее спaсибо!

flipers flipersПомогите решить проблему кодировки!

Работаю с unicode, MySQL 4.0 и Perl 5.8
Кодировка таблиц в в базе данных в utf8. В срипте подключаю классы:

use Encode 'from_to';
use utf8;

С помощью CHARACTER SET cp1251_koi8 объявляю, что идёт русский текст:

my $sth = $dbh_r->prepare("set CHARACTER SET cp1251_koi8;");
$sth->execute();

Затем считываю из БД информацию на русском:

while (my $row = $sth -> fetchrow_arrayref){
...
Encode::from_to($row->[1], "cp1251", "utf-8");
...
}

Проблема в том, что не получается записать в БД русский текст, хотя считывать получается без проблем.


добавление: записываю в базу данных так:

$dbh_r->do( "INSERT INTO test_table_new VALUES(NULL,'$row->[1]');");

пожaлуйста, подскaжите, что делaю не так или не делaю?
заранее спaсибо!

подскaзки я так и не дождалась! решила проблему сама.
...
$sth =$dbh_r->prepare("SET character_set_results='utf8'");$sth->execute();
$sth =$dbh_r->prepare("set character_set_connection='utf8'");$sth->execute();
...
Encode::from_to($row->[1], "utf-8", "cp1251");
...
конечно, кодировка табл. в базе данных - 'utf8'.