[devel] Re: [devel] RegExp: проблема, нужна помощь

From: Sir Raorn <raorn@binec.ru>
To: devel@linux.iplabs.ru
Subject: [devel] Re: [devel] RegExp: проблема, нужна помощь
Date: Thu, 31 May 2001 10:45:26 +0400
Message-ID: <20010531104526.B14950@hell.binec.ru> (raw)
In-Reply-To: <3B0E46CF.9090803@altlinux.ru>; from rider@altlinux.ru on Fri, May 25, 2001 at 03:49:35PM +0400

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