Size: a a a

2020 February 28

VG

Vadim Goncharov in Modern::Perl
Pavel
это перекодируется через printf("%X", "04604060006000")
только кавычки там зря
источник

VG

Vadim Goncharov in Modern::Perl
это число в decimal переводят в big endian просто
источник

AP

Anton Petrusevich in Modern::Perl
без кавычек восьмеричное
источник

VG

Vadim Goncharov in Modern::Perl
substr 2, pack 'Q>',
источник

P

Pavel in Modern::Perl
Anton Petrusevich
майнгот, рили?
жесть какая-то... часть так часть сяк... это я еще не начал ковырять альтернативные варианты этих кодов....
источник

P

Pavel in Modern::Perl
вот тут полное описание https://xn--80ajghhoc2aj1c8b.xn--p1ai/upload/iblock/d04/formirovanie-tega-1162-na-KKT.pdf
но самое печальное что это может совсем не то что надо чеконлайну
источник

P

Pavel in Modern::Perl
т.е. все эти заморочки с раскодированием и перекодированием может нафиг не нужны (или нужно но другие)
источник

VG

Vadim Goncharov in Modern::Perl
Pavel
вот тут полное описание https://xn--80ajghhoc2aj1c8b.xn--p1ai/upload/iblock/d04/formirovanie-tega-1162-na-KKT.pdf
но самое печальное что это может совсем не то что надо чеконлайну
да вроде всё понятно, если знать, что такое GTIN (я не знаю)
источник

AP

Anton Petrusevich in Modern::Perl
$ perl -E 'say unpack "H16", pack "Q>", 4604060006000'                                                                                                                                                                                                    
0000042ff75c7670
источник

P

Pavel in Modern::Perl
GTIN - штрихкод товара
источник

VG

Vadim Goncharov in Modern::Perl
Anton Petrusevich
$ perl -E 'say unpack "H16", pack "Q>", 4604060006000'                                                                                                                                                                                                    
0000042ff75c7670
и substr 2 потому что надо оставить 6 байт
источник

AP

Anton Petrusevich in Modern::Perl
$ perl -MData::Dumper -E 'say Dumper unpack "A2H12", pack "Q>", 4604060006000'                                                                                                                                                                            
$VAR1 = '';                                                                                                                                                                                                                                                                  
$VAR2 = '042ff75c7670';
источник

VG

Vadim Goncharov in Modern::Perl
ну, всё верно
источник

VG

Vadim Goncharov in Modern::Perl
но если там ждут uint8, значит не хекс, а сами байты
источник

AP

Anton Petrusevich in Modern::Perl
в бейз64 поди
источник

AP

Anton Petrusevich in Modern::Perl
т.е. всю структуру надо в бейз64 упаковать потом.
источник

AU

Alexey Ugnichev in Modern::Perl
Anton Petrusevich
т.е. всю структуру надо в бейз64 упаковать потом.
Зачем? Там же и так 32 ascii символа?
источник

VG

Vadim Goncharov in Modern::Perl
нет, судя по pdf, не надо
источник

VG

Vadim Goncharov in Modern::Perl
там "до 30 байт"
источник

AP

Anton Petrusevich in Modern::Perl
я пдф не читал... :)
источник