LINUX.ORG.RU

форматирование текста


0

0

Как убрать переносы строки, если следующая строка начинается не с пробела? я сделал так: cat kon|tr '\n' '@'|sed -e 's/@ /\n /g;s/@/ /g' работает, конечно, но хотелось бы, правильно (и надежно). кто подскажет? образец текста - ниже

    Бабушка   возвратилась   от   соседей   и  сказала  мне,  что
левонтьевские ребятишки собираются на увал по землянику, и велела
сходить с ними.
    -  Наберешь  туесок.  Я  повезу свои ягоды в город, твои тоже
продам и куплю тебе пряник.
    - Конем, баба?
    - Конем, конем.
    Пряник  конем!  Это  ж  мечта  всех  деревенских  малышей. Он
белый-белый,  этот  конь.  А грива у него розовая, хвост розовый,
глаза  розовые, копыта тоже розовые. Бабушка никогда не позволяла
таскаться  с  кусками  хлеба. Ешь за столом, иначе будет худо. Но
пряник  -  совсем  другое  дело.  Пряник можно сунуть под рубаху,
бегать и слышать, как конь лягает копытами в голый живот. Холодея
от  ужаса  -  потерял,  -  хвататься  за  рубаху  и  со  счастьем
убеждаться - тут он, тут конь-огонь!

polachok
() автор топика

cat kon | perl -e "while(<>){unless(/^\s+/){chomp \$p;} print \$p; \$p = \$_;} print \$p;"

sergej ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.