Size: a a a

2020 February 05

AK

Andrey Konovalov in Modern::Perl
Должен быть 1251, бизнес не видит ему альтернатив
источник

МИ

Михаил Иванов in Modern::Perl
Этот варнинг говорит о том, что в строке находится юникод. Чтобы при его выводе не было этого варнинга нужно либо закодировать строку в utf8 через utf8::encode, либо добавить use open qw(:std :utf8);
источник

AR

Alexander Ru in Modern::Perl
т.е. после передачи "строки с русс.символами" в процедуру она стала юникодная?
источник

AT

Artem Tepponen in Modern::Perl
А можно полный кусок кода, демонстрирующий проблему?
источник

МИ

Михаил Иванов in Modern::Perl
Alexander Ru
т.е. после передачи "строки с русс.символами" в процедуру она стала юникодная?
может она и была юникодная
источник

AR

Alexander Ru in Modern::Perl
Artem Tepponen
А можно полный кусок кода, демонстрирующий проблему?
минуту....
источник

AT

Artem Tepponen in Modern::Perl
use 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
ругается оба раза, если use utf8 убрать - не ругается. Что вполне логично
источник

DF

Denis F in Modern::Perl
Alexander Ru
т.е. после передачи "строки с русс.символами" в процедуру она стала юникодная?
А у тебя исходник не в юникоде часом? Современные редакторы так по умолчанию делают
источник

AR

Alexander Ru in Modern::Perl
Да, артем, прибилзительно так
источник

AT

Artem Tepponen in Modern::Perl
Так вот какой-то нюанс сидит в этом “приблизительно”
источник

DS

Dmitriy Shamatrin in Modern::Perl
Если оно написало что wide character, значит оно не промаркировано как строка. В этом случае строка идет как набор байтов, где значение получилось больше чем 255, отсюда wide character, типа широкий символ
источник

AR

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

AR

Alexander Ru in Modern::Perl
сейчас постараюсь выложить макс. приближенно...
источник

AT

Artem Tepponen in Modern::Perl
“набор байтов, где значение получилось больше чем 255”
источник

AT

Artem Tepponen in Modern::Perl
это шедевр 😂
источник

AR

Alexander Ru in Modern::Perl
Артем, извините за маленькую "а" вначале вашего имени, спешил...
источник

DS

Dmitriy Shamatrin in Modern::Perl
Потому что это не набор байтов
источник

DS

Dmitriy Shamatrin in Modern::Perl
А ожидалось
источник

DS

Dmitriy Shamatrin in Modern::Perl
И перл удивился, что вышло больше чем 255
источник