https://www.opennet.ru/openforum/vsluhforumID8/8425.html Доброго времени суток!<br><br>Господа, возникла необходимость с помощью модуля HTML::Barcode::DataMatrix создать "Честный знак" и вывести его на web-страницу. Управляющий символ GS легко вставляется посредством chr (29). А вот FNC1 никак не хочет. У него ASCII 232 и chr(232) не проходит.<br><br>use HTML::Barcode::DataMatrix;<br><br>my $dt = '0102900806230026215TIWUQTEMgnps91EE1092RqSDLGNvKnc4/0rc3+/ddq4XCNVpDMqmew/WcgmOKkE=';<br>my $barcode = HTML::Barcode::DataMatrix-&gt;new(text =&gt; chr(232) . substr($dt, 0, 31) . chr (29) . substr($dt, 31, 6) . chr (29) . substr($dt, 37), encoding_mode =&gt; 'C40', module_size =&gt; "2px");<br>print $barcode-&gt;render;<br><br><br>Кто-нибудь сталкивался с такой проблемой и поможет "засунуть" правильно FNC1?<br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#14 Wed, 15 Apr 2026 10:13:25 GMT Вот этот вариант..<br><br>use open ':locale'; <br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#13 Wed, 15 Apr 2026 10:10:16 GMT Кароче вот так:<br><br>use open ':encoding(UTF-8)';<br><br><br><br><br><br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#12 Wed, 15 Apr 2026 09:08:29 GMT https://perldoc.perl.org/open<br><br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#11 Wed, 15 Apr 2026 08:56:13 GMT &gt;&gt;&gt; use open ':locale' &#124; use open ':encoding(UTF-8)'; <br>&gt;&gt; "use" not allowed in expression at ./dt.cgi line 7, near "&#124; " <br>&gt;&gt; syntax error at ./dt.cgi line 7, near "&#124; use open " <br>&gt; &#124; -&gt; ; <br>&gt; ?<br>&gt; А ты точно продю... программер?<br><br>use open ':locale'<br>use open ':encoding(UTF-8)'<br><br>Я парсил словарь dictionary и там есть слова Z&#252;rich Z&#252;rich's, я считал самое длинное слово. Так вот, без подключения любой из тех что выше, эти слова обрабатывались неверно, т.е. букв было не 6, а 7.<br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#10 Tue, 31 Mar 2026 07:14:38 GMT &gt; encoding_mode <br>&gt; The encoding mode for the data matrix. Can be one of: AUTO <br>&gt; (default), ASCII, C40, TEXT, BASE256, or NONE.<br><br>Пришлось по глубже взгялуть в это дело. На питоне все из "коробки" работает нормально, но он почему оочень медленный в этом плане, да и лепить костыль для вызова скрипта рисования Честного знака из питона не хотелось (да и в моем случае SVG лучше, чем PNG).<br><br>Тут дело в другом.<br><br>Вся эта кодировка тут до лампочки. Если посмотреть исходный код, то увидим, что режимы ASCII, C40, TEXT, BASE256 проходит через такую вещь, как scalar ... Единственный режим, который нормально пропускает, это NONE. Но тут возникает другая проблема. ASCII коды меньше, чем 127, модуль почему-то уменьшает на единицу и чтобы правильно все отображалась, к этим кодам нужно добавить 1. В результате будет что-то типа такого:<br><br>use CGI;<br>use HTML::Barcode::DataMatrix;<br><br>my $q = CGI-&gt;new;<br>print $q-&gt;header(-type =&gt; 'text/html', -charset =&gt; 'utf8'); <br><br># Честный знак<br>my $dt = '0102900806230022215TIWUQTEMgnps9 https://www.opennet.ru/openforum/vsluhforumID8/8425.html#9 Tue, 31 Mar 2026 06:37:51 GMT &gt;&gt; use open ':locale' &#124; use open ':encoding(UTF-8)'; <br>&gt; "use" not allowed in expression at ./dt.cgi line 7, near "&#124; " <br>&gt; syntax error at ./dt.cgi line 7, near "&#124; use open " <br><br>&#124; -&gt; ;<br>?<br>А ты точно продю... программер?<br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#8 Mon, 30 Mar 2026 21:41:52 GMT &gt;&gt; Не. Все то же самое. Он почему то, что выше 127 по <br>&gt;&gt; ASCII как-то не хочет кодировать.<br>&gt; Может потому штааа в мане написано: <br>&gt; Note that characters from 128 to 255 (inclusive) are by default internally <br>&gt; not encoded as UTF-8 for backward compatibility reasons.<br>&gt; И надо принудительно указать utf? ) <br><br>use bytes попробуй<br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#7 Sat, 28 Mar 2026 12:48:40 GMT &gt; use open ':locale' &#124; use open ':encoding(UTF-8)'; <br><br>"use" not allowed in expression at ./dt.cgi line 7, near "&#124; "<br>syntax error at ./dt.cgi line 7, near "&#124; use open "<br><br><br> https://www.opennet.ru/openforum/vsluhforumID8/8425.html#6 Fri, 06 Mar 2026 13:01:17 GMT use open ':locale' &#124; use open ':encoding(UTF-8)';<br><br>