Исходное сообщение
"RegExp в Perl/" Отправлено idle, 06-Май-06 15:31
>Здравствуйте! > >Есть код 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>" =~ />(.*)</; Или я неправильно понял...