https://opennet.me/openforum/vsluhforumID9/7261.html Помогите реализовать с помощью awk & sed или Perl.<br>Есть текстовый файл с содержимым такого вида:<br><br> .......<br>abba babba affa aggga assa <br>BMW mercedes benz.car germany<br>BMW zma rexton.zma russia<br>tadda galla dalla malla<br> ........<br><br>В этом файле между словами BMW и mercedes несколько пробелов, а между словами mercedes и benz стоит одинарный пробел, а между car и germany - несколлько пробелов. Нужно вытащить из этого файла и поместить в другой файл записи типа "mercedes benz", отыскав эту строчку по начальному полю "BMW" и комбинации ".car".<br>Помогите пожалуйста это сделать. Трудность вызывает то, что mercedes benz содержит пробел между словами, а так же то что нужно избавиться от .car.<br>Заранее спасибо!<br> https://opennet.me/openforum/vsluhforumID9/7261.html#40 Fri, 21 Mar 2008 18:53:54 GMT Спасибо всем! Было позновательно и интересно! :-) Отдельное спасибо phpcoder'у за терпение! :-) Тема закрыта!<br> https://opennet.me/openforum/vsluhforumID9/7261.html#39 Thu, 20 Mar 2008 14:51:23 GMT &gt;В кратце: тут организован этакий цикл -- до тех пор пока в <br>&gt;строке нет слова Translation выполняются некие действия (замена, печать). <br><br>Сложно понять 2 вложения! А не покажете для начинающего только одно вложение? Например по Projection найти Bursa Wolf?<br><br> https://opennet.me/openforum/vsluhforumID9/7261.html#38 Thu, 20 Mar 2008 05:31:22 GMT У меня работает, вот так:<br><br>[c0der@xxx ~]$ cat TEST<br><br>*****************Projection******************<br>Datum Name Ellipsoid Name ....<br>---------------------------------------------<br>WGW-84 Bursa Wolf<br>QWQ90 Flow Burs<br> ... ...<br><br>*****************Translation*****************<br>Shift Shift Type ....<br>---------------------------------------------<br>HDA-90 Bursa Wolf<br>FDS-70 Flow Burs<br>You have new mail. <br>[c0der@xxx ~]$ sed -n '/Projection/{n;/Ellipsoid Name/{n;:l n;/Translation/q;s/[^[:space:]]\+[[:space:]]\+\(.*\)/\1/p;bl}}' TEST<br>Bursa Wolf<br>Flow Burs<br> ...<br>[c0der@xxx ~]$<br><br>Разбирайтесь как работает, адаптируйте под ваш Солярис :)<br><br>В кратце: тут организован этакий цикл -- до тех пор пока в строке нет слова Translation выполняются некие действия (замена, печать).<br><br><br> https://opennet.me/openforum/vsluhforumID9/7261.html#37 Wed, 19 Mar 2008 21:05:36 GMT Думаю, что нужно обозначить некий блок /Projection/,/Translation/ и уже в этом блоке применить:<br>$&gt; cat test.txt &#124; sed -n '/Ellipsoid\ Name/ {n;n;s/[ \t]\{2,\}/+/g;p;}'&#124;awk -F+ '{print $2}'<br>Но как передать этот блок sed?<br> https://opennet.me/openforum/vsluhforumID9/7261.html#36 Wed, 19 Mar 2008 19:04:48 GMT &gt;Попутно встретилась еще одна проблема. Если файл имеет<br><br>Гм, Вам там небольшой Windows на sed-е написать не надо будет? А то одна строчка скрипта всё обрастает "подробностями", а понимание не приходит??<br> https://opennet.me/openforum/vsluhforumID9/7261.html#35 Wed, 19 Mar 2008 18:15:00 GMT Попутно встретилась еще одна проблема. Если файл имеет немного другое строение:<br> ...........................<br><br>*****************Projection******************<br>Datum Name Ellipsoid Name ....<br>---------------------------------------------<br>WGW-84 Bursa Wolf<br>QWQ90 Flow Burs <br> ... ...<br><br>*****************Translation*****************<br>Shift Shift Type ....<br>---------------------------------------------<br>HDA-90 Bursa Wolf<br>FDS-70 Flow Burs<br> ... ... <br><br> .............................<br><br>Нужно в секции Projection отыскать Ellipsoid Name и вывести все поля под ним - Bursa Wolf,Flow Burs и т.д. до секции Translation. Количество этих полей под Ellipsoid Name заранеее не известно.<br><br>Если в примере ранее использовалось n;n для считывания вниз 2-строк, то теперь не ясно как сместиться вниз на заранее не известное количество строк и вывести их.<br> https://opennet.me/openforum/vsluhforumID9/7261.html#34 Wed, 19 Mar 2008 13:44:07 GMT Спасибо всем авторам за помощь! Все очень сильно пригодилось! Было интересно и познавательно! :-) Спасибо!<br><br><br><br><br> https://opennet.me/openforum/vsluhforumID9/7261.html#33 Wed, 19 Mar 2008 13:29:59 GMT &gt;И еще один момент: если есть несколько реализаций поски текста с помощью <br>&gt;sed&awk и есть несколько реализаций поиска в Perl, как их лучше <br>&gt;объединить? <br><br>Ну, например, так:<br><br>FROM_PERL=`perl ... &#124; wc -l`<br>FROM_AWK=`awk ... &#124; wc -l`<br>FROM_SED=`sed ... &#124; wc -l`<br><br>printf 'Всего найдено %u\n' "`expr $FROM_PERL + $FROM_AWK + $FROM_SED`"<br><br><br> https://opennet.me/openforum/vsluhforumID9/7261.html#32 Wed, 19 Mar 2008 13:26:03 GMT Хочу добавить, что конечной целью является построение отчетов.<br><br><br>