URL: https://www.opennet.ru/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID8
Нить номер: 8425
[ Назад ]

Исходное сообщение
"FNC1 в perl"
Отправлено Андрей , 05-Фев-26 17:20

Доброго времени суток!
Господа, возникла необходимость с помощью модуля HTML::Barcode::DataMatrix создать "Честный знак" и вывести его на web-страницу. Управляющий символ GS легко вставляется посредством chr (29). А вот FNC1 никак не хочет. У него ASCII 232 и chr(232) не проходит.
use HTML::Barcode::DataMatrix;
my $dt = '0102900806230026215TIWUQTEMgnps91EE1092RqSDLGNvKnc4/0rc3+/ddq4XCNVpDMqmew/WcgmOKkE=';
my $barcode = HTML::Barcode::DataMatrix->new(text => chr(232) . substr($dt, 0, 31) . chr (29) . substr($dt, 31, 6) . chr (29) . substr($dt, 37), encoding_mode => 'C40', module_size => "2px");
print $barcode->render;

Кто-нибудь сталкивался с такой проблемой и поможет "засунуть" правильно FNC1?

Содержание

FNC1 в perl,ACCA, 01:42 , 07-Фев-26
- FNC1 в perl,Андрей, 13:35 , 07-Фев-26

Сообщения в этом обсуждении

"FNC1 в perl"
Отправлено ACCA , 07-Фев-26 01:42


use Barcode::Code128 qw(FNC1); # Import the FNC1 constant
my $code = new Barcode::Code128;
# Prepend FNC1 to the data
$code->text(FNC1 . '00000123455555555558');

Не?

"FNC1 в perl"
Отправлено Андрей , 07-Фев-26 13:35

>

> use Barcode::Code128 qw(FNC1); # Import the FNC1 constant
> my $code = new Barcode::Code128;
> # Prepend FNC1 to the data
> $code->text(FNC1 . '00000123455555555558');
>

> Не?
Не. Все то же самое. Он почему то, что выше 127 по ASCII как-то не хочет кодировать.