Вложеное регулярное выражение - Perl - Ответ 10289999

@zhukovia · 03.04.2017, 15:36 **[ТС]**

Сообщение от volodin661

Приведи здесь вывод команды

Bash

perl -V

Я это делаю на Linux CentOS

Кликните здесь для просмотра всего текста

Bash

Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
   
  Platform:
    osname=linux, osvers=2.6.32-220.el6.x86_64, archname=i386-linux-thread-multi
    uname='linux c6b8.bsys.dev.centos.org 2.6.32-220.el6.x86_64 #1 smp tue dec 6 19:48:22 gmt 2011 i686 i686 i386 gnulinux '
    config_args='-des -Doptimize=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i686 -mtune=atom -fasynchronous-unwind-tables -DDEBUGGING=-g -Dversion=5.10.1 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red Hat, Inc. -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl5 -Dsitearch=/usr/local/lib/perl5 -Dprivlib=/usr/share/perl5 -Darchlib=/usr/lib/perl5 -Dvendorlib=/usr/share/perl5/vendor_perl -Dvendorarch=/usr/lib/perl5/vendor_perl -Dinc_version_list=5.10.0 -Darchname=i386-linux-thread-multi -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr -Dd_gethostent_r_proto -Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto -Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto -Dscriptdir=/usr/bin -Dusesitecustomize'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i686 -mtune=atom -fasynchronous-unwind-tables',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.4.7 20120313 (Red Hat 4.4.7-16)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lresolv -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.12.so, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.12'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/CORE'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i686 -mtune=atom -fasynchronous-unwind-tables -L/usr/local/lib'
 
 
Characteristics of this binary (from libperl): 
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
                        USE_SITECUSTOMIZE
  Built under linux
  Compiled at Nov 10 2015 11:51:08
  @INC:
    /usr/local/lib/perl5
    /usr/local/share/perl5
    /usr/lib/perl5/vendor_perl
    /usr/share/perl5/vendor_perl
    /usr/lib/perl5
    /usr/share/perl5
    .

Добавлено через 3 минуты

Сообщение от volodin661

Добавлено через 8 минут
да, и во вложенном subst надо тоже применить модификатор m(multiple lines), вот так:

Bash

1	perl -0pe 's{(&p_not&)(.+?)\1}{ $2 =~ s[</?\w+>][]mrg }mge' test.html

Все равно не заработало. Только теперь.

Bash

[root@lserver ~]# perl -0pe 's{(&p_not&)(.+?)\1}{$2=~s[</?\w+>][]mrg}mge'
Bareword found where operator expected at -e line 1, near "s[</?\w+>][]mrg"
syntax error at -e line 1, near "s[</?\w+>][]mrg"
Execution of -e aborted due to compilation errors.

Вернуться к обсуждению:
Вложеное регулярное выражение Perl

Следующий ответ

Другие темы раздела
Perl Работа с датой https://www.cyberforum.ru/ perl-web/ thread1945981.html Всем привет, в общем запутался я с вычислениями дат, привожу пример: отнять от текущей даты и времени 3 дня. #!/usr/bin/perl use strict; use warnings; use Date::Calc qw(Today_and_Now Add_Delta_Days); use Time::Local;	Perl Taglist Здравствуйте!. Имеется таглист: --- taglist --- label: oldname: ... Значения для name и old_name - принято считать значением по умолчанию. Остальные конкретизированы для языка страны. Если name и old_name отсутствуют, то скрипт вытягивает первое попавшееся языковое содержимое name:xx, old_name:xx. Как усмирить жадность алгоритма? Как заставить скрипт искать...
Perl MIME::Lite для отправки почты Добрый вечер Использую MIME::Lite для отправки почты MIME::Lite->send('sendmail', "/usr/sbin/sendmail -t -oi -oem"); $subject = sprintf "=?utf-8?B?%s?=", MIME::Base64::encode($ORDER{'TITLE'}, ""); $message = MIME::Lite->new( From => $email_support, To => $email_manager, Cc => $email_director, Subject => $subject, https://www.cyberforum.ru/ perl-web/ thread1931134.html	Perl Модуль Lingua::Translit Скачал я с CPAN'а модуль Lingua::Translit, но что то не пойму где брать к нему таблицы для перевода в транслит. Или я что то делаю не так? Пишу код: my $str = 'Новая статья про транслит.'; my $tr = new Lingua::Translit("GOST 7.79 RUS"); my $result; if ($tr->can_reverse()) { $result = $tr->translit($str); } Мне логи сервера говорят: https://www.cyberforum.ru/ perl-web/ thread1920602.html
Браузер и работа CGI скрипта Perl Есть вот такой кусок кода на Perl'е, все бы хорошо, но он занимает достаточно продолжительное время и браузер завершает работу со скриптом раньше, чем успевает выполниться system($cmd2); в результате чего, весь следующий ниже код не выполнятся. Что с этим можно сделать? #запускаем .bat файл с переданным названием нашего файла, для создания базы и выгрузки файлов my $cmd1 = "conf1c1...	Perl Вывод print Всем привет! Есть вот такой кусок кода в CGI скрипте, все бы хорошо, но вместе с принтами выводится и текст написанный в батниках. Может кто подсказать, как сделать так, чтобы текст из батников не выводился, а выводились только принты? #Выводим сообщение об успешной загрузке print "Content-type: text/html\n\n"; print "Файл $name был успешно загружен!\n"; print "Выполняется обработка!"; ... https://www.cyberforum.ru/ perl-web/ thread1910754.html
Perl Не понимает русские названия при загрузке Есть html-страничка: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title>Test</title> </head> <body> https://www.cyberforum.ru/ perl-web/ thread1910128.html	Perl Регулярное выражение, поиск последнего вхождения Всем привет. Подскажите, пожалуйста, регулярное выражение для поиска последнего вхождения в многострочном тексте. Пример: my $str = ' 452452345длолдов Warning Text1 jalskdfjadfasdasf f23495823945 Warning Text2 0000000 adf Warning Text3 2352345
Perl Нужно выбрать тему для сайта на диплом https://www.cyberforum.ru/ perl-web/ thread1868979.html Сайты больниц школ и т д нельзя нужно договоры уже голову сломал что выбрать	Perl Конкатенация переменных https://www.cyberforum.ru/ perl-web/ thread1861351.html Добрый день! Прошу помощи не могу разобраться с конкатенацией переменных хешей вот так работает: $item3='item3'; ${html{'item1'}{'item2'}{"$item3"}}='ok'; print $html{'item1'}{'item2'}{'item3'}; а так уже нет:
Perl Веб-программирование. AJAX на Perl - это так просто! здравствуйте, нифига не просто, пробовал пример http://linuxshare.ru/docs/perl/ajax.html там сказано: Поместите скрипт в корневой каталог вашего сайта и откройте его в браузере. Например, если ваш сайт имеет имя mydomain.com, то наберите в браузере http://mydomain.com/test.pl. Вы должны увидеть на странице поле ввода.-у меня почему то этот файл сразу идёт на закачку, что я не так сделал?	Perl Перл ВЭБ и Ворд на сайте залит файл Ворд -.doc иль .docx - ДАВАЙТЕ уж что попроще в нём есть закладки приведу пример текстов и как он обрамляется в Ворде -например закладка q1 -например закладка q2 -например закладка q3 так вот нужно оставить нужные участки-то есть закладки указываемые поштучно то есть через запятую, или промежутком через тире Перл это решает? есть пример кода? спс https://www.cyberforum.ru/ perl-web/ thread1851974.html

	03.04.2017, 15:36