如何从JSON数据中提取URL？

Question

我有一个文本文档,我想从中提取URL并将它们放在一个新的文本文件中.我怎么能在Perl中做到这一点？文本文件的示例如下:

{"type":"TabGroupsManager:GroupData","id":65,"name":"XML Schema Editor","image":"http://www.altova.com/favicon.ico","disableAutoRename" :false,"titleList":"XML架构编辑器\ u000aAltova XMLSpy代码生成\ u000a在线视频演示\ u000a计划数据交换案例研究\ u000aXML编辑器\ u000aAltova XMLSpy 2011\u000aXML架构管理工具\ u000a","标签":["{\ "entries \":[{\"url \":\"http://www.altova.com/xmlspy/xml-schema-editor.html \",\"title \":\"XML架构编辑器\" ,\ "ID \":1442422751,\ "引荐\":\ "HTTP://www.altova.com/xmlspy/xml-editing.html \",\ "滚动\":\ "0,0 \" ,\ "FORMDATA \":{\ "#q构成\":\"\ "}}],\" 指数\ ":1,\" 属性\ ":{\" 图像\ ":\" HTTP://www.altova.com/favicon.ico\"},\" 扩展数据\ ":{\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML架构编辑器\"},\"_ formDataSaved \":true}","{\"entries \":[{ \"url \":\"http://www.altova.com/xmlspy/xml-code-generation.html \",\"title \":\"Altova XMLSpy Code Generation \",\"ID \" :1442423118,\ "引用\":\"http://www.google.com/search?hl=en&client=firefox-a&hs=GR1&rls=org.mozilla%3Aen-GB%3Aofficial&q=altova+derive+schema+from + XML&水溶液= F&AQI = M1&AQL =&OQ =&gs_rfai = \"\"滚动\":\ "0,0 \",\ "FORMDATA \":{\ "#q构成\":\ "\"}}],\ "指数\":1,\ "属性\":{\ "图像\":\ "HTTP://www.altova.com/favicon.ico \"},\ "扩展数据\": {\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML架构编辑器\"},\"_ formDataSaved \":true}","{\"entries \":[{\" url \":\"http://www.altova.com/videos.asp？type = 0&video = xmlspy \",\"title \":\"Online Video Demos \",\"ID \":1442423184,\"引用\":\ "HTTP://www.altova.com/xmlspy/xml-code-generation.html \",\ "滚动\":\ "0,0 \",\ "FORMDATA \": {\ "器#q \":\ "\"}}],\ "指数\":1,\ "属性\":{\ "图像\":\"http://www.altova.com/favicon .ICO\"} \" 扩展数据\ ":{\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML Schema Editor \"},\"_ formDataSaved \":true}","{\"entries \":[{\"url \" :\"http://www.altova.com/solutions/exchange_ratecasestudy.html \",\"title \":\"预定数据交换案例研究",\"ID \":2618,\"formdata \" :{\ "#q构成\":\ "\"},\ "滚动\":\ "0,1369 \"}],\ "指数\":1,\ "属性\":{\"图像\ ":\"http://www.altova.com/favicon.ico \"},\"\ textData \":{\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML Schema编辑\ "} \" _ formDataSaved\":真正}", "{\" 项\ ":[{\" URL\":\" HTTP://www.altova.com/xml-editor/\",\"title\":\"XML Editor \",\"ID \":2620,\"formdata \":{\"#q \":\"\"},\ "滚动\":\ "0,0 \"}],\ "指数\":1,\ "属性\":{\ "图像\":\"HTTP:// WWW .altova.com/favicon.ico \"},\"\ textData \":{\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML架构编辑器\"},\"_ formDataSaved\":真正}", "{\" 项\ ":[{\" 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\"\ "滚动\":\ "0,0 \"},{\ "URL \":\ "HTTP://manual.altova.com/XMLSpy/spystandard/xmlschemasstd.htm \",\" title \":\"XML Schemas \",\"ID \":2624,\"referrer \":\"http://manual.altova.com/XMLSpy/spystandard/index.html?xmlschemasstd.htm \" ,\ "滚动\":\ "0260 \"}],\ "滚动\":\ "0,0 \"}],\ "指数\":1,\ "属性\":{},\" extData \":{\"TabGroupsManagerGroupId \":\"65 \",\"TabGroupsManagerGroupName \":\"XML架构编辑器\"},\"_ formDataSaved \":true}","{\"entries \":[{\"url \":\"http://www.altova.com/schemaagent.html \",\"title \":\"XML架构管理工具\",\"ID \":2626,\"FORMDATA \":{\ "#q构成\":\ "\"},\ "滚动\":\ "0171 \"}],\ "指数\":1,\ "属性\":{\ "图像\":\ "HTTP://www.altova.com/favicon.ico \"},\ "扩展数据\":{\ "TabGroupsManagerGroupId \":\ "65 \",\ "TabGroupsManagerGroupName \":\ "XML Schema Editor \"},\"_ formDataSaved \":true}"]}\ "属性\":{\ "图像\":\ "HTTP://www.altova.com/favicon.ico \"},\ "扩展数据\":{\ "TabGroupsManagerGroupId \":\ "65 \" ,"TabGroupsManagerGroupName":"XML Schema Editor \"},\"_ formDataSaved \":true}"]}\ "属性\":{\ "图像\":\ "HTTP://www.altova.com/favicon.ico \"},\ "扩展数据\":{\ "TabGroupsManagerGroupId \":\ "65 \" ,"TabGroupsManagerGroupName":"XML Schema Editor \"},\"_ formDataSaved \":true}"]}

从那我想创建一个文本文件,如:

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

Answer 1

由于这似乎是JSON文件而不是纯文本文件,因此请在CPAN上使用其中一个JSON模块.这有点复杂,因为您似乎将数据编码为JSON,然后将其存储为更大的对象中的字符串,然后将其转换为JSON - 因此您必须解析文件,提取字符串,将其解析为JSON in转而然后从中提取URI.