ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dennis S.Davidoff 2:5020/400 12 Apr 2001 15:54:43
To : All
Subject : regex
--------------------------------------------------------------------------------
Есть:
\<p\>\<font class\=\"Biggest\"\>\<a class\=\"Redlink\" href\=\"\<\!--
nop --\>\"\>\<\!-- name --\>\</a\>\</font\>\<font
class\=\"Normal\"\>\<BR\>by\<\!-- author--\>\</font\>
\<P class\=\"Normal\"\>\<\!-- bref --\>\<a href\=\"\<\!-- link --\>\"\>Read
More\</a\>\</p\>
Hадо вытащить regex все что находится в <!-- --> в $1, и все что находится
между --> и следующим <!-- (его может и не быть). Я сделал так: пробегаюсь
while_ом так:
while ($lalala =~
m#\\<\\!--[\s\n]*([^\s]+)[\s\n]*--\\>(.*(?=\\<\\!--\s*))?#ig) {
print "$1 -- $2\n";
...
Hо в результате:
nop -- \"\>\<\!-- name --\>\</a\>\</font\>\<font class\=\"Normal\"\>\<BR\>by
author --
bref -- \<a href\=\"
link --
Гм... уже все мозги на этом сломал :) Причем bref - получилось вытащить
"номана" :))
regex-гуру, выручайте! :)
--
cheers, d.
--- ifmail v.2.15dev5
* Origin: Central Telegraph Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
