From mboxrd@z Thu Jan  1 00:00:00 1970
From: Sir Raorn <raorn@binec.ru>
To: devel@linux.iplabs.ru
Message-ID: <20010531104526.B14950@hell.binec.ru>
References: <3B0E46CF.9090803@altlinux.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.2.5i
In-Reply-To: <3B0E46CF.9090803@altlinux.ru>; from rider@altlinux.ru on Fri, May 25, 2001 at 03:49:35PM +0400
Subject: [devel] Re: =?koi8-r?B?W2RldmVsXSBSZWdFeHA6INDSz8LMxc3BLCDO1dbOwSDQz83P3dg=?=
Sender: devel-admin@linux.iplabs.ru
Errors-To: devel-admin@linux.iplabs.ru
X-BeenThere: devel@linux.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@linux.iplabs.ru
List-Help: <mailto:devel-request@linux.iplabs.ru?subject=help>
List-Post: <mailto:devel@linux.iplabs.ru>
List-Subscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=subscribe>
List-Id: IPLabs Linux Team Developers mailing list <devel.linux.iplabs.ru>
List-Unsubscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=unsubscribe>
List-Archive: <http://www.logic.ru/pipermail/devel/>
X-Original-Date: Thu, 31 May 2001 10:45:26 +0400
Date: Thu, 31 May 2001 10:45:26 +0400
Archived-At: <http://lore.altlinux.org/devel/20010531104526.B14950@hell.binec.ru/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

On Fri, May 25, 2001 at 03:49:35PM +0400, Anton Farygin wrote:
> Суть ее в том, что внутри тегов (< >) нужно удалить с помощью перла все 
> переводы строк (\n). А удаляется только первый.

my $in_tag=0;

while(<>) {
	if ($in_tag) {
		if (! m/\>[^<>]*$/) {
			$in_tag=0;
		} else {
			s/\n/ /g; # или какие там ему надо?
		}
	} else {
		if (m/\<[^<]*$/) {
			$in_tag=1;
			s/\n/ /g;
		}
	}
}

В общем примерно что-то в этом роде :-)

-- 
                                      Regards, Sir Raorn.
,-----------------------------------.----------------------.
|   Registered Linux user #177282   |  ICQ UIN #68527095   |
`-----------------------------------^----------------------'
_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel