DS
Size: a a a
2020 February 05
МИ
А у тебя исходник не в юникоде часом? Современные редакторы так по умолчанию делают
В исходнике определенно не юникод, а utf8. Использование
дальнейшее поведение приведенного скрипта ожидаемо — в строке юникод, варнинг ровно об этом и говорит.
use utf8; сделано правильно.дальнейшее поведение приведенного скрипта ожидаемо — в строке юникод, варнинг ровно об этом и говорит.
AT
так первый все нормлаьно выводит, без ошибок
так проблема тут
AR
pm работающая под мод_перл, в общем выглядет так...
package .......;на варн в sub callUserFunction не ругается! а на варн в sub sendError уже ругается!
use utf8;
use strict;
use warnings;
use Exporter;
use DBI;
use Encode;
sub callUserFunction
{
my $args = shift;
......
if ( !ConnectDB......) {
warn " ===before sendError=[" . $DBI::err ." - " . $DBI::errstr."]\n";
sendError("Ошибка соединения с БД : [" . $DBI::err . " " . $DBI::errstr . "]");
}
.....
}
sub sendError {
($strRespond) = shift();
warn "sendError(enter proc):[$strRespond]\n";
$strRespond = encode('Windows-1251', $strRespond);
.....
}
AT
Лучше в такой форме, что запустить можно
AR
DS
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";
}
DS
Вот это будет работать
DS
Без варнингов
DS
Потому что надо понимать, чего функция хочет и что вообще откуда едет и делать encode/decode соответственно
DS
Всякие md5 они определены над байтами
AT
Так проблема-то в другом. Что без всяких encode лезут “чудеса"
DS
Нет никаких чудес
AR
да, Артем, именно
DS
Можно пройтись по переменным с devel::peek и посмотреть что там
AR
Дмитрий, почему первый варн без ошибок, а второй, когда зашли в процедуру, с ошибками. Строка таже
AT
А в
$DBI::err и $DBI::errstr есть русские буквы?DS
А потому что флаг utf8 липкий
DS
В статье написано по этому поводу
AR
есть, вот вывод