Re: [Comm] sed -?

["Aleksander N. Gorohovski" <angel@feht.dgtu.donetsk.ua>]

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'а?

Напиши програмку на perl, типа
---------------------------------
#!/usr/bin/perl

open (FILE,"list1.txt");
@a=<FILE>;
close (FILE);
my $i;
for (@a) {
/<\/TD><\/tr>/\n/g;
$a[$i++]=$_;
}
open (FILE,">list2.txt");
print FILE @a;
close (FILE);
-------------------------
Если ничего не пропустил, должно работать