[Comm] sed -?

[Aleksander N. Gorohovski]

On Tue, 5 Oct 2004 17:27:36 +0300, Dolgov OV <dov на media-link.info> wrote:

> On Tue, 05 Oct 2004 17:07:04 +0400
> "Aleksander N. Gorohovski" <angel на feht.dgtu.donetsk.ua> wrote:
>> Напиши програмку на 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);
>> -------------------------
>> Если ничего не пропустил, должно работать
>
> Чегото он ругается на команду перевода строки в программе (если я
> правильно понял):
> Backslash found where operator expected at ./myperl line 8, near
> "/<\/TD><\/tr>/\"        (Missing operator before \?)
> syntax error at ./myperl line 8, near "/<\/TD><\/tr>/\"
> Execution of ./myperl aborted due to compilation errors.

Sorry, должно быть
s/<\/TD><\/tr>/\n/g;