Size: a a a

2020 February 05

AR

Alexander Ru in Modern::Perl
===ConnectDB==def_dbh=
===before sendError=[1 - ВАЖНО:  роль "www-data" не существует]
Wide character in warn at /Global.pm line 237, <STDIN> line 1.
sendError(enter proc):[Ошибка соединения с БД : [1 Ð�Ð�Ð�Ð�Ð�:  Ñ�олÑ� "www-data" не Ñ�Ñ�Ñ�еÑ�Ñ�вÑ�еÑ�]]
источник

AR

Alexander Ru in Modern::Perl
before - это вывело перед входом в процедуру текст
источник

AR

Alexander Ru in Modern::Perl
который передался, для вывода в процедуру sendError
источник

DS

Dmitriy Shamatrin in Modern::Perl
Смотри где прилипло при помощи devel::peek, может конкатенацию где сделал
источник

AR

Alexander Ru in Modern::Perl
237 строка это строка с
warn "sendError(enter proc):[$strRespond]\n";
источник

AT

Artem Tepponen in Modern::Perl
use utf8;
use Encode;

$s = "русский текст";

$s = encode('utf8', $s);
warn " ===before enter to sub " . $s;
call_some_sub("Ошибка ".$s);

sub call_some_sub {
 $var=shift();
warn " ===call_some_sub == $var";
}
источник

AT

Artem Tepponen in Modern::Perl
оно воспроизводит ситуацию. Из базы прилетает без utf8
источник

DS

Dmitriy Shamatrin in Modern::Perl
Ну короче смотри откуда приехало не то
источник

AR

Alexander Ru in Modern::Perl
с базой ничего не делается, кроме попытки к ней подсоединится
источник

AR

Alexander Ru in Modern::Perl
$dbh = DBI->connect
источник

DS

Dmitriy Shamatrin in Modern::Perl
set names там я не знаю
источник

AT

Artem Tepponen in Modern::Perl
проблема в sendError("Ошибка соединения с БД : [" . $DBI::err . " " . $DBI::errstr . "]");
источник

DS

Dmitriy Shamatrin in Modern::Perl
Указать кодировку при соединении
источник

AR

Alexander Ru in Modern::Perl
но с неправильными данными, логин пароль
источник

AT

Artem Tepponen in Modern::Perl
поменяй “Ошибка соединения с БД” на “ERROR ”
источник

AT

Artem Tepponen in Modern::Perl
ты сконкатенировал utf строчку с не utf строчкой, в которой есть русские буквы
источник

AR

Alexander Ru in Modern::Perl
Во, теперь прогресс
источник

DS

Dmitriy Shamatrin in Modern::Perl
Статью прочитай)
источник

DS

Dmitriy Shamatrin in Modern::Perl
Там про это говорится и довольно понятно
источник

AT

Artem Tepponen in Modern::Perl
Да, в статье про это тоже есть. Надо было просто понять, что у вопрошающего в переменных сидело
источник