AP
Size: a a a
AP
MA
$ 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
DE
AP
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
AP
sub utf8ToBytes {
return [map {ord} split '', encode_utf8($_[0])];
}
MA
sub utf8ToBytes {
return [map {ord} split '', encode_utf8($_[0])];
}
use utf8
не нужен :)AP
use utf8
не нужен :)VG
MA
AP
MA
DE
AP
sub utf8ToBytes {
return [map {ord} split '', Encode::is_utf8($_[0]) ? encode_utf8($_[0]) : $_[0]];
}
VG
DE
AP
VG
AP