https://opennet.ru/openforum/vsluhforumID9/7723.html Приветствую сообщество!<br><br>Стоит задача выудить из текста, состоящего из блоков вида<br>[code]BEGIN some label<br>some text<br>...<br>END[/code]<br>только блоки, содержащие между строками BEGIN/END определённые строки, которые можно определить регулярным выражением. К примеру, начинающиеся с определённого слова. В идеале хотелось бы ещё вырезать строки между началом каждого блока и первой ключевой строкой.<br><br>Представляю, как это сделать на perl или, скажем, на C. Но очень хотелось бы иметь это в виде одно-двухстрочного скрипта с использованием grep/sed/awk/etc. В виду недостаточного знания перечисленных инструментов, не могу понять, возможно ли это и если да, то чем проще сделать. А читать всю документацию по всем этим инструментам сейчас нет времени. Так что если кто-нибудь навскидку может сказать, как примерно это сделать (или, например, что сделать это таким путём невозможно), буду премного благодарен.<br><br>Для наглядности приведу пример входных и выходных данных. Признаком ключевой строки будем считать 'WORD' в нача https://opennet.ru/openforum/vsluhforumID9/7723.html#2 Wed, 26 Nov 2008 14:53:04 GMT &gt;Приветствую сообщество! <br>&gt;<br>&gt;Стоит задача выудить из текста, состоящего из блоков вида <br><br>Однострочника не получится, sed не обрабатывает перевод строки, к сожалению.<br><br>#!/sbin/sh<br>A=""<br>for I in 'grep -e "BEGIN" -e "END" -e "WORD" file.txt'<br>do<br> [ `echo $I&#124;cut -f1` = "WORD" ]&&echo $A<br> [ `echo $I&#124;cut -f1` = "END" -a `echo $A&#124;cut -f1` = "WORD" ]&&echo $I<br> A=$I<br>done<br><br>Как-то так. Не проверял, ибо рабочий день ёк и домой пора :)<br> https://opennet.ru/openforum/vsluhforumID9/7723.html#1 Tue, 25 Nov 2008 03:53:19 GMT Любопытно почему все-таки не однострочник на perl? ИМХО perl чаще можно встретить чем _нужную_ версию grep/sed/awk. А вообще задача на составление одного регекса, вот только он не тривиален, а я привык к перловым регексам и нет желания писать его для POSIX или еще чего-нибудь, особенно с учетом того, что вы так и не уточнили какая именно из существующих реализаций регексов вам нужна. На pcre это будет что-то вроде <br>/^BEGIN(?:.(?!^END))*^WORD(?:.(?!^END))*.^END$/smg<br>