ru.perl

13 июня 2019, четверг, в 22:11 NOVT, Alexey Vissarionov написал(а): BR>>> Однако, \b почему-то не находится даже с use 5.22.0. EG>> Это не проблема перла, это проблема используемой системной локали. AV> Локаль - свойство процесса, а не системы. Hе противоречит. Данные локали обычно часть системы, процессы не таскают определения collation/ctype/etc. с собой. Eugene

Hi, Eugene! 11 июн 19 03:53, Eugene Grosbein -> Michael Dukelsky: MD>> $ locale MD>> LANG=ru_RU.UTF-8 EG> utf8 это принципиально отличается от старых однобайтовых локалей, EG> поэтому требует ещё и use utf8; [fido@BroRabbit ~]$ locale LANG=ru_RU.IBM866 LC_CTYPE="ru_RU.IBM866" LC_NUMERIC="ru_RU.IBM866" LC_TIME="ru_RU.IBM866" LC_COLLATE="ru_RU.IBM866" LC_MONETARY="ru_RU.IBM866" LC_MESSAGES="ru_RU.IBM866" LC_PAPER="ru_RU.IBM866" LC_NAME="ru_RU.IBM866" LC_ADDRESS="ru_RU.IBM866" LC_TELEPHONE="ru_RU.IBM866" LC_MEASUREMENT="ru_RU.IBM866" LC_IDENTIFICATION="ru_RU.IBM866" LC_ALL= Have nice nights. Brother Rabbit.

Здравствуйте, All! Не могу сообразить как отпрезать: ($key,$desc) =($1,$2) if ($_ =~ /^(.*?)\s(.*+)(\s|#|;)?+$/); ^^^^^ вот здесь: $1 до 1го пробела $2 до последнего пробела или конца строки если есть #что то или ;что-то то это отрезать строка вида: Inboud /var/.... # Что-то не берется... Я тупой ? Всего наилучшего, Mikhail

Здравствуйте, All! почему так : ($tmp,$echo,$desc) = $_ =~ /^(,|Hold,)(.*?),(.*?),+/; работает. а так: ($echo,$desc) = $_ =~ /^,|Hold,(.*?),(.*?),+/; нет ? Всего наилучшего, Mikhail

Рад всех приветствовать! А особенно - All! Кто-нибудь юзает сабж? Как можно его установить в последнем debian 9? ... Jonny wanna live

Hi, Eugene! 04 апр 19 17:30, Eugene Grosbein -> Brother Rabbit: EG>>> (undef, $echo, $desc) = $_ =~ /^(Hold)?,(.*?),(.*?),+/); BR>> Зачем? Hас же совсем не интересует холд или нет. EG> undef как раз и означает, что нас первая группа не интересует. Да. Вопрос был в том, зачем ее вообще выделять в таком случае в скобки? BR>> Можно ваще вот так: BR>> ( $echo, $desc ) = $_ =~ /^[Hold]*,([^,]),([^,]),+/); BR>> А, вот на счет "не запятая" вместо "любое количество любых символов, но BR>> не жадно", я сомневаюсь. EG> Hу это всё-таки грязноватая манера, так как [Hold] обозначет ровно один EG> символ и несмотря на то, что работать оно будет правильно, Со звездочкой - да, так нет. Там, как я понимаю вообще можно писать [a-z]* или [^,]* EG> (если исправить баги дальше в круглых скобках, где ты потерял звёзды), Это опечатка. А не лучше там плюсики вместо звездочек? Или там реально может ниичего не быть? EG> читабельность хуже, чем с круглыми скобками - новичка может сбить с EG> толку, да и остальным потребуется сначала сообразить, в чём тут финт. Мне кажется, что читается как раз проще всего, когда написано "не запятая", понятно, что нужен текст меджу запятыми. EG> Есть у Perl слабое место - легко писать write-only code :-) EG> Hо не надо поддаваться. Да. Потом и сам прочесть не сможешь. ;) Have nice nights. Brother Rabbit.

Здравствуйте, Eugene! Ответ на сообщение Eugene Grosbein (2:5006/1) к Mikhail Stakhanov, написанное 06 апр 19 в 09:26: Огромное спасибо! Вопрос снят! Всего наилучшего, Mikhail

Рад всех приветствовать! А особенно - Gennadij! Пятница апреля 12 19 17:20 Gennadij Pastuhov писал к All: GP> Пытаюсь перетащить один проект сабж. Есть код, юзающий XML::LibXML. GP> Тесты с ним падают с ошибкой: GP> Can't locate object method "unique_key" via package GP> "XML::LibXML::Element" at GP> /usr/local/share/perl5/XML/Compile/Translate.pm line 617. GP> Всё, что смог найти на эту тему, это changes в LibXML: GP> 2.0107 2013-10-31 GP> - Add a unique_key method for namespace objects. GP> - GP> https://bitbucket.org/shlomif/perl-xml-libxml/pull-request/24/unique_k GP> ey-method -for-namespace-objects/diff GP> - Thanks to garfieldnate for the pull request. GP> А что делать дальше - не соображу. Почему-то более древняя версия на GP> дебиане работает, в отличие от более новой центоси... :( Upd: что нарыл за это время: в образе centos:7 очень древняя версия XML::LibXML, 2.0018, в которой ещё нет поля unique_key, который был добавлен только в 2.0107 31.10.2013! ещё года. Решил поставить модули из cpan, а не через yum, cpan install XML::LibXML очень долго ворочается и завершается этим: gcc -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong --param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic -Wl,-z,relro Av_CharPtrPtr.o Devel.o LibXML.o dom.o perl-libxml-mm.o perl-libxml-sax.o xpath.o -o blib/arch/auto/XML/LibXML/LibXML.so \ -L/usr/local/lib64/perl5/auto/share/dist/Alien-Libxml2/lib -lxml2 -lm -lperl \ /usr/bin/ld: cannot find -lperl collect2: error: ld returned 1 exit status make: *** [blib/arch/auto/XML/LibXML/LibXML.so] Error 1 SHLOMIF/XML-LibXML-2.0200.tar.gz /usr/bin/make -- NOT OK Running make test Can't test without successful make Running make install Make had returned bad status, install seems impossible Полез искать эту libperl (или как она должна называться?): sh-4.2# yum list|grep libperl sh-4.2# yum list|grep lib|grep perl perl-Compress-Raw-Zlib.x86_64 1:2.061-4.el7 @base perl-libs.x86_64 4:5.16.3-294.el7_6 @updates perl-libwww-perl.noarch 6.08-1 @additional perl-local-lib.noarch 1.008010-4.el7 @base cryptlib-perl.x86_64 3.4.3-8.el7 epel libpurple-perl.x86_64 2.10.11-7.el7 base perl-Convert-UUlib.x86_64 2:1.5-1.el7 epel perl-Crypt-Cracklib.x86_64 1.7-19.el7 epel perl-Glib.x86_64 1.305-1.el7 epel perl-Glib-Object-Introspection.x86_64 0.025-1.el7 epel perl-Glib-devel.x86_64 1.305-1.el7 epel perl-IO-Zlib.noarch 1:1.10-294.el7_6 updates perl-POE-Filter-Zlib.noarch 2.02-11.el7 epel perl-hamlib.x86_64 3.3-1.el7 epel perl-lib-abs.noarch 0.93-7.el7 epel perl-libapreq2.x86_64 2.13-12.el7 epel perl-libintl.x86_64 1.20-12.el7 base perl-libnet.noarch 3.10-1.el7.centos additional perl-libnodeupdown.x86_64 1.14-8.el7 epel perl-libs.i686 4:5.16.3-294.el7_6 updates perl-libwhisker2.noarch 2.5-14.el7 epel perl-libwhisker2-doc.noarch 2.5-14.el7 epel perl-libxml-perl.noarch 0.08-19.el7 base sh-4.2# Что из этого может быть кандидатом на -lperl - не соображу. Помогите, плз! ... Jonny wanna live

Привет, Brother! 12 June 2019 08:45, Brother Rabbit послал(а) письмо к Eugene Grosbein: BR> С локалью все в порядке, я думаю. Регистронезависимый поиск в русском BR> языке работает с use locale; и не работает без этого. Однако, \b BR> почему-то не находится даже с use 5.22.0. Попробуй временно вставить в свой скрипт print "unicode=${^UNICODE}\n"; Если напечатает не 0, то попробуй запустить скрипт через perl -C0 Желаю успехов, Brother! За сим откланиваюсь, Michael. ... node (at) f1042 (dot) ru

Здравствуйте, All! Слушайте а как вы кодите ? вот я писал сегодня прогу в винде в фаре, потом перенес ее на linux и там отстроил, так у меня usage и системные сообщения UTF-8 А все для внутренних фидо файлов CP866, ну подправил я 1 раз. а как дальше, перенес работающую версию в винду и не вижу всего utf-8. Я не програмист, просто так увлечение, как вообще этот вопрос правильно решается ? Всего наилучшего, Mikhail