Вариант для распечатки		Пред. тема | След. тема
Форум 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. "FNC1 в perl"	+/–
Сообщение от 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. "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 как-то не хочет кодировать.
	Ответить | Правка | Наверх | Cообщить модератору

	3. "FNC1 в perl"	+/–
	Сообщение от Pahanivo (ok), 09-Фев-26, 16:53
	> Не. Все то же самое. Он почему то, что выше 127 по > ASCII как-то не хочет кодировать. Может потому штааа в мане написано: Note that characters from 128 to 255 (inclusive) are by default internally not encoded as UTF-8 for backward compatibility reasons. И надо принудительно указать utf? )
	Ответить | Правка | Наверх | Cообщить модератору

	4. "FNC1 в perl"	+/–
	Сообщение от Андрей (??), 09-Фев-26, 17:07
	>> Не. Все то же самое. Он почему то, что выше 127 по >> ASCII как-то не хочет кодировать. > Может потому штааа в мане написано: > Note that characters from 128 to 255 (inclusive) are by default internally > not encoded as UTF-8 for backward compatibility reasons. > И надо принудительно указать utf? ) Включаю use utf8; Не помогает, может неправильно делаю?
	Ответить | Правка | Наверх | Cообщить модератору

	5. "FNC1 в perl"	+/–
	Сообщение от Pahanivo (ok), 09-Фев-26, 17:42
	>>> Не. Все то же самое. Он почему то, что выше 127 по >>> ASCII как-то не хочет кодировать. >> Может потому штааа в мане написано: >> Note that characters from 128 to 255 (inclusive) are by default internally >> not encoded as UTF-8 for backward compatibility reasons. >> И надо принудительно указать utf? ) > Включаю use utf8; > Не помогает, может неправильно делаю? Покури в сторону encode А  вообще: encoding_mode The encoding mode for the data matrix. Can be one of: AUTO (default), ASCII, C40, TEXT, BASE256, or NONE. модуль то умеет в utf???
	Ответить | Правка | Наверх | Cообщить модератору

6. "FNC1 в perl"	+/–
Сообщение от fred (??), 06-Мрт-26, 16:01
use open ':locale' | use open ':encoding(UTF-8)';
Ответить | Правка | Наверх | Cообщить модератору

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

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