Здравствуйте!

Есть код html например

<div id="test1">
<a id="a1">text1</a>
<a id="a1">text2</a>
<a id="a1">text3</a>
</div>
......
<div id="test2">
<a id="a1">text4</a>
<a id="a1">text5</a>
<a id="a1">text6</a>
</div>

Нужно получить список слов заключенных в теги <a><a/>. Т.е. text1,text2....
Я это делаю так
@arr = ($html=~/<a id="a1">([^<]+)</a>/g);

Все нормально работает. Но вот вопрос как мне получить только список слов из тега <div id="test1"></div> одним регэкспом?
Я вообще использую библиотеку RegExp::Bind там все делаеться чуть проще.

@aa = RegExp::Bind->global_bind($html, qr/<a id="a1">(?#<teg_a>[^<]+)</a>/);

Т.е. в @aa я получу массив ссылок на хеши. @aa = ({teg_a=>text1},{teg_a=>text2}....)

Подскажите пожалуйста как мне получить только список слов из тега <div id="test1">...</div> одним регэкспом с помощью библиотеки RegExp::Bind или подобных ей.

Спасибо.

• RegExp в Perl/,idle, 15:31 , 06-Май-06

>Здравствуйте!
>
>Есть код html например
>
><div id="test1">
><a id="a1">text1</a>
><a id="a1">text2</a>
><a id="a1">text3</a>
></div>
>......
><div id="test2">
><a id="a1">text4</a>
><a id="a1">text5</a>
><a id="a1">text6</a>
></div>
>
>Нужно получить список слов заключенных в теги <a><a/>. Т.е. text1,text2....
>Я это делаю так
>@arr = ($html=~/<a id="a1">([^<]+)</a>/g);
>
>Все нормально работает. Но вот вопрос как мне получить только список слов из тега <div id="test1"></div> одним регэкспом?
>Я вообще использую библиотеку RegExp::Bind там все делаеться чуть проще.
>
>@aa = RegExp::Bind->global_bind($html, qr/<a id="a1">(?#<teg_a>[^<]+)</a>/);
>
>Т.е. в @aa я получу массив ссылок на хеши. @aa = ({teg_a=>text1},{teg_a=>text2}....)
>
>Подскажите пожалуйста как мне получить только список слов из тега <div id="test1">...</div> одним регэкспом с помощью библиотеки RegExp::Bind или подобных ей.
>
>Спасибо.
Например так.
my @a = "<a id=a>text1</a>" =~ />(.*)</;
Или я неправильно понял...