From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <dov@media-link.info>
Date: Tue, 5 Oct 2004 18:19:04 +0300
From: Dolgov OV <dov@media-link.info>
To: community@altlinux.ru
Subject: Re: [Comm] sed -?
Message-Id: <20041005181904.6329d878.dov@media-link.info>
In-Reply-To: <20041005164309.1f3826e6.dov@media-link.info>
References: <20041005164309.1f3826e6.dov@media-link.info>
X-Mailer: Sylpheed version 0.9.6claws (GTK+ 1.2.10; i586-alt-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=Windows-1251
Content-Transfer-Encoding: 8bit
X-Virus-Scanned: by amavisd-new at media-link.info
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Tue, 05 Oct 2004 15:18:41 -0000
Archived-At: <http://lore.altlinux.org/community/20041005181904.6329d878.dov@media-link.info/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

On Tue, 5 Oct 2004 16:43:09 +0300
Dolgov OV <dov@media-link.info> wrote:
> Здравствуйте.
> 
> Подскажите плз. как sed'ом заменить некий patern переводом строки?
> Или может не sed'ом, а perl'ом, но задача вот в чем:
> Есть текстовый файл с фрагментами html кода. В каждой строке от 1-го
> до 30-ти участков, разделенных последовательностью </TD></tr>
> Вот эти </TD></tr> я и хочу заменить переводом строки, дабы уже потом
> обрабатывать каждую отдельную ячейку, как отдельную строку в файле.
> 
> Пробовал 
> cat list.txt | sed s/"<\/TD><\/tr>"/\n/g - > list1.txt
> тупо подставляется n.
> 
> perl -nwe 'print "$1\n" if /(.*)<\/TD><\/tr>/' list.txt >
> list1.txt
> отбрасывает только последнюю последовательность. Может можно както
> perl'у объяснить чтобы он шел последовательно по строке до искомого
> patern'а?

Как это ни печально, но пришлось воспользоваться услугами M$Word и его
функцией найти и заменить </TD></tr> на ^p (знак абзаца) :-\

-- 
С наилучшими,
Олег Долгов
<dov AT media-link DOT info>
Registered Linux user #315454