|
|
ru.linux- RU.LINUX --------------------------------------------------------------------- From : Victor Wagner 2:5020/400 22 Feb 2002 17:27:18 To : Sergey Zhlobo Subject : Re: sed, fold, sort... etc -------------------------------------------------------------------------------- Sergey Zhlobo <Sergey.Zhlobo@p17.f1718.n5020.z2.fidonet.org> wrote: SZ> In article <1014073044@p10.f741.n5030.z2>, Anatoliy Kulakov wrote: >> Hужно отбросить все слова в строчках в файле не влезающие в 80 символов. >> Уверен что это легко делатся, но как не знаю. >> Как-нить там через всякие fold, sort, uniq, cat split делается... Подскажите >> плз. как нужно ! SZ> cat file.txt |perl -ne 'print $_ if length($_) >= 80;' опять не то. Во-первых perl -ne 'print $_ if length($_) >= 80;' file.txt Зачем тебе лишний процесс cat? Во-вторых, раз уж пошла такая пьянка, то perl -pe 's/(.{1,79}\S)\b.*/$1/' file.txt Данный вариант плох тем, что пожрет знаки препинания (поскольку \b поматчится _перед_ ними. Для русского текста мне еще -Mlocale потребовалось. -- http://www.communiware.ru http://www.ice.ru/~vitus --- ifmail v.2.15dev5 * Origin: Communiware.net (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/15178c992896c.html, оценка из 5, голосов 10
|