Хочу сделать автоматический подсчет беков получая информацию посредством xml.yandex есть запрос xml запрос: Код | <?xml version='1.0' encoding='windows-1251'?> <request> <query>link="www.ru"</query> <page>0</page> <maxpassages>0</maxpassages> <groupings> <groupby attr='d' mode='deep' groups-on-page='20' docs-in-group='1' curcateg='-1'/> </groupings> </request>
|
получаем xml документ: Код | <?xml version="1.0" encoding="utf-8" ?> - <yandexsearch version="1.0"> - <request> <query>link="www.ru"</query> <page>0</page> <sortby order="descending" priority="yes">rlv</sortby> <maxpassages>2</maxpassages> - <groupings> <groupby attr="d" mode="deep" groups-on-page="20" docs-in-group="1" curcateg="-1" /> </groupings> </request> - <response date="20070317T174745"> + <reqwizard level="0"> - <Url level="0"> <link /> </Url> - <Currency level="0"> <linkusd /> <linkeur /> </Currency> - <KeyboardLayout level="0"> <request /> <querystring /> </KeyboardLayout> - <Unquote level="0"> <request /> <querystring /> </Unquote> - <Volapyuk level="0"> <request /> <querystring /> </Volapyuk> - <Misspell level="0"> <request /> <querystring /> </Misspell> - <ExpandContext level="0"> <spcctx /> <querystring /> </ExpandContext> - <Weather level="0"> <city /> <cityid /> <weather /> </Weather> </reqwizard> <reqid>500986411</reqid> <found priority="phrase">0</found> <found priority="strict">52477</found> <found priority="all">52477</found> - <results> - <grouping attr="d" mode="deep" groups-on-page="20" docs-in-group="1"> <found priority="phrase">0</found> <found priority="strict">1646</found> <found priority="all">1646</found> <page first="1" last="20">0</page>
.... пропужены <group>......
</grouping> </results> </response> </yandexsearch>
|
в строке <found priority="strict">52477</found> - содержиться кол-во страниц. в строке <found priority="strict">1646</found> - содержиться кол-во сайтов. подскажите как при помощи модуля XML::XPath для perl вынуть эти 2 значения?
|