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

[Sir Raorn]

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