https://www.opennet.ru/openforum/vsluhforumID8/8075.html Допустим есть строка вида:<br><br>&lt;p&gt;привет&lt;/p&gt; &p_not& &lt;p&gt;привет1&lt;/p&gt; &lt;p&gt;привет2&lt;/p&gt; &p_not& &lt;p&gt;привет10&lt;/p&gt;<br><br>Можно ли как то составить регулярное выражение чтобы удалить все теги &lt;p&gt; и &lt;/p&gt; заключенные между &p_not& (удалить вместе с &p_not&), но при этом оставить &lt;p&gt; и &lt;/p&gt; которые не входят в "скобки" &p_not&? Текст может быть очень длинным и "скобок" &p_not& может быть не одна. Есть ли вообще такая возможность?<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#9 Fri, 06 Mar 2026 14:35:13 GMT #!/usr/bin/env perl<br><br>use strict;<br>use warnings;<br><br># &lt;p&gt;hello&lt;/p&gt; hello1 hello2 &lt;p&gt;hello10&lt;/p&gt; <br>my $x;<br>$_ = "&lt;p&gt;hello&lt;/p&gt; &p_not& &lt;p&gt;hello1&lt;/p&gt; &lt;p&gt;hello2&lt;/p&gt; &p_not& &lt;p&gt;hello10&lt;/p&gt; <br>&p_not& &lt;p&gt;hello3&lt;/p&gt; &lt;p&gt;hello4&lt;/p&gt; &p_not& &lt;p&gt;hello15&lt;/p&gt;";<br>s#&p_not& &lt;p&gt;(.*?)&lt;/p&gt; &lt;p&gt;(.*?)&lt;/p&gt; &p_not&#$1 $2#g;<br><br>print $_,"\n"; <br><br><br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#8 Wed, 05 Apr 2017 02:48:01 GMT Вообщем сделал вот так. Может кому понадобится.<br>s{(&p_not&)(.+?)\1}{($x=$2)=~s[&lt;/?p&gt;][]mgs;$x}mgse<br>Спасибо большое за помощь.<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#7 Mon, 03 Apr 2017 15:26:36 GMT попробуй это<br>[code]&#124; perl -pe 's/(?\!^&lt;.*?&gt;.*?&lt;.*?&gt;)&lt;.*?&gt;(?=.*?&p_not&)&#124;&p_not&//g' &#124; perl -pe 's&#124;^(&lt;(.*?&gt;).*?)(\s+.*)&#124;$1&lt;/$2$3&#124;'[/code]<br>от этих упреждающих проверок мозги закипят ))<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#6 Mon, 03 Apr 2017 13:25:37 GMT &gt;&gt; Нет должно получиться &lt;p&gt;привет&lt;/p&gt; привет1 привет2 &lt;p&gt;привет10&lt;/p&gt; <br>&gt;&gt; Т.е. убрать теги у тех слов что находятся внутри &p_not&.<br>&gt; если теги не p работать не будет )) <br>&gt; &#124; perl -pe 's/&p_not&&#124;&lt;.*?&gt;//g' &#124; perl -pe 's&#124;(^\S+)(\s+.*\s+)(\S+$)&#124;&lt;p&gt;$1&lt;/p&gt;$2&lt;p&gt;$3&lt;/p&gt;&#124;' <br><br>Не знаю почему, но произошла обратная ситуация теги вне скобок удвоились<br>&lt;p&gt;&lt;p&gt;hello&lt;/p&gt;&lt;/p&gt; &p_not& &lt;p&gt;hello1&lt;/p&gt; &lt;p&gt;hello2&lt;/p&gt; &p_not& &lt;p&gt;&lt;p&gt;hello10&lt;/p&gt;&lt;/p&gt;<br> <br><br><br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#5 Sat, 01 Apr 2017 15:45:08 GMT &gt; Нет должно получиться &lt;p&gt;привет&lt;/p&gt; привет1 привет2 &lt;p&gt;привет10&lt;/p&gt; <br>&gt; Т.е. убрать теги у тех слов что находятся внутри &p_not&.<br><br>если теги не p работать не будет ))<br>&#124; perl -pe 's/&p_not&&#124;&lt;.*?&gt;//g' &#124; perl -pe 's&#124;(^\S+)(\s+.*\s+)(\S+$)&#124;&lt;p&gt;$1&lt;/p&gt;$2&lt;p&gt;$3&lt;/p&gt;&#124;'<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#4 Sat, 01 Apr 2017 11:11:57 GMT &gt; Я ничего не понял.<br>&gt; что в сухом остатке должно получиться?<br>&gt; это - [code]&lt;p&gt;привет&lt;/p&gt;&lt;p&gt;привет10&lt;/p&gt;[/code] <br>&gt; ?<br>&gt; тогда так: <br>&gt; echo '&lt;p&gt;привет&lt;/p&gt; &p_not& &lt;p&gt;привет1&lt;/p&gt; &lt;p&gt;привет2&lt;/p&gt; &p_not& &lt;p&gt;привет10&lt;/p&gt;' <br>&gt; &#124; perl -pe 's&#124;(?&lt;=\&lt;\/p\&gt;).*&p_not&.*&p_not&.*(?=\&lt;p\&gt;)&#124;&#124;' <br><br>Нет должно получиться &lt;p&gt;привет&lt;/p&gt; привет1 привет2 &lt;p&gt;привет10&lt;/p&gt; <br>Т.е. убрать теги у тех слов что находятся внутри &p_not&.<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#3 Sat, 01 Apr 2017 11:11:56 GMT &gt; Я ничего не понял.<br>&gt; что в сухом остатке должно получиться?<br>&gt; это - [code]&lt;p&gt;привет&lt;/p&gt;&lt;p&gt;привет10&lt;/p&gt;[/code] <br>&gt; ?<br>&gt; тогда так: <br>&gt; echo '&lt;p&gt;привет&lt;/p&gt; &p_not& &lt;p&gt;привет1&lt;/p&gt; &lt;p&gt;привет2&lt;/p&gt; &p_not& &lt;p&gt;привет10&lt;/p&gt;' <br>&gt; &#124; perl -pe 's&#124;(?&lt;=\&lt;\/p\&gt;).*&p_not&.*&p_not&.*(?=\&lt;p\&gt;)&#124;&#124;' <br><br>Нет должно получиться &lt;p&gt;привет&lt;/p&gt; привет1 привет2 &lt;p&gt;привет10&lt;/p&gt; <br>Т.е. убрать теги у тех слов что находятся внутри &p_not&.<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#2 Sat, 01 Apr 2017 05:35:45 GMT &gt; Допустим есть строка вида: <br>&gt; &lt;p&gt;привет&lt;/p&gt; &p_not& &lt;p&gt;привет1&lt;/p&gt; &lt;p&gt;привет2&lt;/p&gt; &p_not& &lt;p&gt;привет10&lt;/p&gt; <br>&gt; Можно ли как то составить регулярное выражение чтобы удалить все теги &lt;p&gt; <br>&gt; и &lt;/p&gt; заключенные между &p_not& (удалить вместе с &p_not&), но при <br>&gt; этом оставить &lt;p&gt; и &lt;/p&gt; которые не входят в "скобки" &p_not&? <br>&gt; Текст может быть очень длинным и "скобок" &p_not& может быть не <br>&gt; одна. Есть ли вообще такая возможность?<br><br>Я ничего не понял.<br>что в сухом остатке должно получиться?<br>это - [code]&lt;p&gt;привет&lt;/p&gt;&lt;p&gt;привет10&lt;/p&gt;[/code]<br>?<br>тогда так:<br><br>echo '&lt;p&gt;привет&lt;/p&gt; &p_not& &lt;p&gt;привет1&lt;/p&gt; &lt;p&gt;привет2&lt;/p&gt; &p_not& &lt;p&gt;привет10&lt;/p&gt;' &#124; perl -pe 's&#124;(?&lt;=\&lt;\/p\&gt;).*&p_not&.*&p_not&.*(?=\&lt;p\&gt;)&#124;&#124;'<br> https://www.opennet.ru/openforum/vsluhforumID8/8075.html#1 Fri, 31 Mar 2017 22:25:45 GMT Да<br>