Size: a a a

2020 April 01

AP

Anton Petrusevich in Modern::Perl
что получиться то должно?
источник

MA

Mons Anderson in Modern::Perl
Denis Erygin
мне просто нужно получить эквивалент utf8ToBytes
$ perl -MEncode -E 'sub utf8_to_bytearray ($) { return map ord, split "", Encode::encode utf8 => Encode::decode utf8=> $_[0];  }; say join ",", utf8_to_bytearray $ARGV[0]' -- тестоваястрока
209,130,208,181,209,129,209,130,208,190,208,178,208,176,209,143,209,129,209,130,209,128,208,190,208,186,208,176
источник

DE

Denis Erygin in Modern::Perl
len: 38
 32 30 39 31  32 38 32 30   38 31 37 36  32 30 38 31     2091 2820  8176 2081
 38 33 33 32  32 30 38 31   38 30 32 30  38 31 37 38     8332 2081  8020 8178
 32 30 38 31  37 36                                      2081 76
источник

DE

Denis Erygin in Modern::Perl
массив из 38 байт должен быть
источник

AP

Anton Petrusevich in Modern::Perl
len: 38
 32 30 39 31  32 38 32 30   38 31 37 36  32 30 38 31     2091 2820  8176 2081
 38 33 33 32  32 30 38 31   38 30 32 30  38 31 37 38     8332 2081  8020 8178
 32 30 38 31  37 36                                      2081 76
источник

VG

Vadim Goncharov in Modern::Perl
Denis Erygin
мне просто нужно получить эквивалент utf8ToBytes
нет, иди и страдай учись
источник

AP

Anton Petrusevich in Modern::Perl
Denis Erygin
массив из 38 байт должен быть
sub utf8ToBytes {
   return [map {ord} split '', encode_utf8($_[0])];
}
источник

MA

Mons Anderson in Modern::Perl
Anton Petrusevich
sub utf8ToBytes {
   return [map {ord} split '', encode_utf8($_[0])];
}
сразу encode нельзя, нужно защититься от дебилов, которые считают, что use utf8 не нужен :)
источник

AP

Anton Petrusevich in Modern::Perl
Mons Anderson
сразу encode нельзя, нужно защититься от дебилов, которые считают, что use utf8 не нужен :)
спорный вопрос. иногда можно :)
источник

VG

Vadim Goncharov in Modern::Perl
а также путают локаль системы с
источник

MA

Mons Anderson in Modern::Perl
ну, для себя да, можно
источник

AP

Anton Petrusevich in Modern::Perl
Mons Anderson
ну, для себя да, можно
если либу/фреймворк писать, то да, надо защищаться
источник

MA

Mons Anderson in Modern::Perl
ещё мне понравилось "это не байты а октеты" :)
источник

DE

Denis Erygin in Modern::Perl
к сожалени. есть легаси где нельзя включать use utf8 чтоб все не сломать
источник

AP

Anton Petrusevich in Modern::Perl
sub utf8ToBytes {
   return [map {ord} split '', Encode::is_utf8($_[0]) ? encode_utf8($_[0]) : $_[0]];
}
источник

VG

Vadim Goncharov in Modern::Perl
Denis Erygin
к сожалени. есть легаси где нельзя включать use utf8 чтоб все не сломать
а если мануал прочитать, то можно
источник

DE

Denis Erygin in Modern::Perl
за is_utf8 надо по рукам бить
источник

AP

Anton Petrusevich in Modern::Perl
Denis Erygin
к сожалени. есть легаси где нельзя включать use utf8 чтоб все не сломать
этот флаг влияет только на литералы в данном файле
источник

VG

Vadim Goncharov in Modern::Perl
в стародавние времена таких называли "ламер"
источник

AP

Anton Petrusevich in Modern::Perl
Denis Erygin
за is_utf8 надо по рукам бить
а это как раз проверяет взведённость флага для скаляра. за что по рукам то?
источник