|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 23 Aug 2002 11:41:29
To : Alan Boev
Subject : Re: Re^2: пустая строка
--------------------------------------------------------------------------------
Здравствуй, Alan Boev.
AB>>> Как убрать одну/две/три пустых строки после обзаца?
AC>> Кто такой "обзац"? Hет, я догадался, что абзац,
AB> Пардон, конечно "абзац".
AC>> но как ты его определяешь?
AB> Пустым "переводом строки". Больше ничего в этой строке нет. Как вариант -
AB> их несколько. Hужно что-бы оставался один.
AC>> И что должно получиться в результате?
AB> кусок текста
AB> пустая строка
AB> кусок текста
AB> пустая строка
local $/ = ""; while (<IN>) { print OUT; }
Для замены inplace
perl -i -e 'local $/ = ""; while (<>) { print; }' test.txt
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
