В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

368 membersпожаловаться на группу
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" не Ñ�Ñ�Ñ�еÑ�Ñ�вÑ�еÑ�]]
источник
18:29пожаловаться#1

AR

Alexander Ru in Modern::Perl
before - это вывело перед входом в процедуру текст
источник
18:30пожаловаться#2

AR

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

DS

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

AR

Alexander Ru in Modern::Perl
237 строка это строка с
warn "sendError(enter proc):[$strRespond]\n";
источник
18:32пожаловаться#5

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";
}
источник
18:33пожаловаться#6

AT

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

DS

Dmitriy Shamatrin in Modern::Perl
Ну короче смотри откуда приехало не то
источник
18:34пожаловаться#8

AR

Alexander Ru in Modern::Perl
с базой ничего не делается, кроме попытки к ней подсоединится
источник
18:34пожаловаться#9

AR

Alexander Ru in Modern::Perl
$dbh = DBI->connect
источник
18:34пожаловаться#10

DS

Dmitriy Shamatrin in Modern::Perl
set names там я не знаю
источник
18:34пожаловаться#11

AT

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

DS

Dmitriy Shamatrin in Modern::Perl
Указать кодировку при соединении
источник
18:34пожаловаться#13

AR

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

AT

Artem Tepponen in Modern::Perl
поменяй “Ошибка соединения с БД” на “ERROR ”
источник
18:34пожаловаться#15

AT

Artem Tepponen in Modern::Perl
ты сконкатенировал utf строчку с не utf строчкой, в которой есть русские буквы
источник
18:36пожаловаться#16

AR

Alexander Ru in Modern::Perl
Во, теперь прогресс
источник
18:36пожаловаться#17

DS

Dmitriy Shamatrin in Modern::Perl
Статью прочитай)
источник
18:36пожаловаться#18

DS

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

AT

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