Как я могу извлечь URL из данных JSON?

Question

У меня есть текстовый документ, из которого я хочу извлечь URL-адреса и поместить их в новый текстовый файл.Как я могу сделать это в Perl?Пример текстового файла находится здесь:

{"type": "TabGroupsManager: GroupData", "id": 65, "name": "Редактор схемы XML", "image": "http://www.altova.com/favicon.ico","disableAutoRename":false,"titleList":"XML Редактор схем \ u000aAltova Генерация кода XMLSpy \ u000aОнлайн-демонстрация видео \ u000aПрограммное исследование по обмену данными \ u000aXML Editor \ u000aAltova XMLSpy 2011 \ u000aXML Инструмент управления схемами \ u000a "," tabs ": [" {\ "records \": [{\ "url \": \ "http://www.altova.com/xmlspy/xml-schema-editor.html\",\"title\":\"XML Редактор схемы \", \ "ID \": 1442422751, \ "referrer \": \ "http://www.altova.com/xmlspy/xml-editing.html\",\"scroll\":\"0,0\",\"formdata\":{\"#q\":\"\"}}],\"index\":1,\"attributes\":{\"image\":\"http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы \"}, \ "_ formDataSaved \": true}"," {\ "records \": [{\ "url \": \ "http://www.altova.com/xmlspy/xml-code-generation.html\",\"title\":\"Altova Генерация кода XMLSpy \", \ "ID \": 1442423118, \ "referrer \": \ "http://www.google.com/search?hl=en&client=firefox-a&hs=GR1&rls=org.mozilla%3Aen-GB%3Aofficial&q=altova+derive+schema+from+xml&aq=f&aqi=m1&aql=&oq=&gs_rfai=\",\"scroll\":\"0,0\",\"formdata\":{\"#q\":\"\"}}],\"index\":1,\"attributes\":{\"image\":\"http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы\ "}, \" _ formDataSaved \ ": true}", "{\" records \ ": [{\" url \ ": \" http://www.altova.com/videos.asp?type=0&video=xmlspy\",\"title\":\"Online Видеодемонстрации \ ", \" ID \ ": 1442423184, \"referrer \ ": \" http://www.altova.com/xmlspy/xml-code-generation.html\",\"scroll\":\"0,0\",\"formdata\":{\"#q\":\"\"}}],\"index\":1,\"attributes\":{\"image\":\"http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы \ "}, \" _ formDataSaved \ ": true}", "{\" records \ ": [{\" url \ ": \" http://www.altova.com/solutions/exchange_ratecasestudy.html\",\"title\":\"Scheduled Пример обмена данными\ "\ "ID \": 2618 \ "FormData \": {\ "# д \": \ "\"}, \ "прокрутки \": \ "индекс 0,1369 \"}], \"\ ": 1, \" attribute \ ": {\" image \ ": \" http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы \ "}, \" _ formDataSaved \ ": true}", "{\" records \ ": [{\ \"url \": \ "http://www.altova.com/xml-editor/\",\"title\":\"XML Editor \",\ "ID \": 2620 \ "FormData \": {\ "# д \": \ "\"}, \ "прокрутки \": \ "0,0 \"}], \ "Индекс \":1, \ "attribute \": {\ "image \": \ "http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы \"}, \ "_ formDataSaved \": true} "," {\ "records \": [{\ "url \": \" http://manual.altova.com/XMLSpy/spystandard/index.html?xmlschemasstd.htm\",\"title\":\"Altova XMLSpy 2011 \ ", \" ID \ ": 2622, \" children \ ": [{\" url \ ": \" http://manual.altova.com/XMLSpy/spystandard/xmlspy_content_dyn.html\",\"title\":\"Altova XMLSpy 2011 \ ", \" ID \ ":2623, \ "referrer \": \ "http://manual.altova.com/XMLSpy/spystandard/index.html?xmlschemasstd.htm\",\"scroll\":\"0,0\"},{\"url\":\"http://manual.altova.com/XMLSpy/spystandard/xmlschemasstd.htm\",\"title\":\"XML Схемы \", \ "ID \": 2624, \ "referrer \": \ "http://manual.altova.com/XMLSpy/spystandard/index.html?xmlschemasstd.htm\",\"scroll\":\"0,260\"}],\"scroll\":\"0,0\"}],\"index\":1,\"attributes\":{},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схем \"}, \ "_ formDataSaved \": true}"," {\ "records \": [{\ "url \": \ "http://www.altova.com/schemaagent.html\",\"title\":\"XML Инструмент управления схемами \", \ "ID \": 2626, \ "formdata \": {\ "# q \": \ "\"}, \ "scroll \": \ "0,171 \"}], \ "index \": 1, \ "attribute \": {\ "image \": \ "http://www.altova.com/favicon.ico\"},\"extData\":{\"TabGroupsManagerGroupId\":\"65\",\"TabGroupsManagerGroupName\":\"XML Редактор схемы \"}, \" _ formDataSaved \ ": true}"]}

Из этого я хочу создать текстовый файл, например:

http://www.altova.com/xmlspy/xml-schema-editor.html
http://www.altova.com/xmlspy/xml-code-generation.html

Answer 1

Поскольку это, скорее всего, файл JSON, а не простой текстовый файл, используйте один из модулей JSON на CPAN .Это немного усложняется тем фактом, что данные, закодированные как JSON, затем сохраняются в виде строк в более крупном объекте, который затем преобразуется в JSON - поэтому вам придется анализировать файл, извлекать строки, анализировать их как JSON ввключите и извлеките из них URI.

Answer 2

, если Perl не обязателен,

$ sed 's|\\||g' file| awk -vRS='"url":' -F"," '{print $1}' | grep -E "http|ftp"
"http://www.altova.com/xmlspy/xml-schema-editor.html"
"http://www.altova.com/xmlspy/xml-code-generation.html"
"http://www.altova.com/videos.asp?type=0&video=xmlspy"
"http://www.altova.com/solutions/exchange_ratecasestudy.html"
"http://www.altova.com/xml-editor/"
"http://manual.altova.com/XMLSpy/spystandard/index.html?xmlschemasstd.htm"
"http://manual.altova.com/XMLSpy/spystandard/xmlspy_content_dyn.html"
"http://manual.altova.com/XMLSpy/spystandard/xmlschemasstd.htm"
"http://www.altova.com/schemaagent.html"