From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <angel@feht.dgtu.donetsk.ua>
To: community@altlinux.ru
Subject: Re: [Comm] sed -?
References: <20041005164309.1f3826e6.dov@media-link.info>
	<opsfeep2rohz2pp6@oc.peooc.net>
	<20041005172736.39cdbc05.dov@media-link.info>
Message-ID: <opsfgcrksdhz2pp6@oc.peooc.net>
From: "Aleksander N. Gorohovski" <angel@feht.dgtu.donetsk.ua>
Organization: DonNTU
Content-Type: text/plain; format=flowed; delsp=yes; charset=koi8-r
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Date: Wed, 06 Oct 2004 18:19:58 +0400
In-Reply-To: <20041005172736.39cdbc05.dov@media-link.info>
User-Agent: Opera M2/7.54 (Linux, build 751)
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: Wed, 06 Oct 2004 11:17:05 -0000
Archived-At: <http://lore.altlinux.org/community/opsfgcrksdhz2pp6@oc.peooc.net/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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;