Портится кодировка при вставке в бд из PERL. Как решить?

Question

[Orbite]

При UPDATE из перл скрипта портится кодировка текста, и в базу заносятся непонятные символы вместо русского текста. Подскажите, как решить данную проблему? Пример кода прилагаю. Кодировка скрипта koi8r, кодировка таблицы koi8r_general_ci

$name_bank = 'Имя банка';
        
                $sql="UPDATE arm_money SET number_bank_acc='$number_bank_account', name_bank='$name_bank', related_pay_info='$related_pay_info' WHERE LinkID= ".$m;
                $sth= $dbh->prepare($sql) or error('CANNOT_PREPARE', 'Не могу подготовить запрос '.(DEBUG ? $sql.':<br> '.$DBI::errstr : ''));     
                $sth->execute() or error('CANNOT_EXECUTE', 'Не могу выполнить запрос '.(DEBUG ? $sql.':<br> '.$DBI::errstr : ''));

Answer 1

[krypt3r]

SET NAMES 'koi8-r'

Comments

[Orbite]

Делаю $dbh->do("SET NAMES 'koi8r'"); и $dbh->do("SET NAMES 'koi8-r'"); попробовал, перед запросом, все остается по прежнему. В базе символы п≤п╪я▐ п╠п╟п╫п╨п╟

[krypt3r]

Orbite, уверены, что кодировка таблицы тоже koi8-r? Проверьте show create database mydb; и show create table arm_money. Попробуйте также SET NAMES 'koi8-r' COLLATE 'koi8r_general_ci', SET CHARACTER SET 'koi8-r'
Тут ещё полистайте

[Orbite]

Проверил базу DEFAULT CHARACTER SET koi8r
И таблицы DEFAULT CHARSET=koi8r

Попробовал ваш вариант с SET NAMES 'koi8-r' COLLATE 'koi8r_general_ci', SET CHARACTER SET 'koi8-r'
Все равно записывает кракозябрами

[ThunderCat]

Orbite,
1) не кошерно использовать однобайтовую кодировку в 2018 году, но это дело вкуса/легаси.
2) При подключении укажите кодировку, не приведен код подключения, но думаю не хватает кодировки соединения.

[krypt3r]

Orbite, ещё такой момент. Как вы проверяете, что записывает крякозябрами? Тем же самым скриптом в кодировке KOI8-R, phpmyadmin-ом, консольным клиентом?

[Orbite]

krypt3r, проверяю в HeidiSQL

Answer 2

[BloodVIRUS]

Кодировку базы, таблицы, подключения сделай utf8_general_ci, и все заработает.

Answer 3

[Orbite]

Ребят всем спасибо в особенности krypt3r и ThunderCat.
Сделал немного по другому, эти данные у меня записывались помимо бд еще и в книгу эксель, вытащил их из экселя, сделал $dbh->do("SET NAMES 'utf8'");
$dbh->do("SET character_set_connection = 'utf8'");
и все отображается нормально!