Вариант для распечатки		Пред. тема | След. тема
Форум WEB технологии (Perl)
Изначальное сообщение		[ Отслеживать ]

"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?
Ответить | Правка | Cообщить модератору

Сообщения

[Сортировка по ответам | RSS]

1. Сообщение от ACCA (ok), 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'); Не?
Ответить | Правка | Наверх | Cообщить модератору
Ответы: #2

2. Сообщение от Андрей (??), 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 как-то не хочет кодировать.
Ответить | Правка | Наверх | Cообщить модератору
Родитель: #1

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема