从文本中采取某些部分用Perl

-1

我怎么能采取一些部分从这段文字用Perl ...它的解码JSON我想......我现在需要采取例如这样的：从文本中采取某些部分用Perl

周日

下午阴有可能下雨。 18C高。凉风习习。 NE以10至20公里/小时的风速。。的雨50％”

{ 
    "response": { 
     "version": "0.1" 
     ,"termsofService": "http://www.wunderground.com/weather/api/d/terms.html" 
     ,"features": { 
     "forecast10day": 1 
     } 
    } 
     , 
    "forecast":{ 
     "txt_forecast": { 
     "date":"2:00 PM CEST", 
     "forecastday": [ 
     { 
     "period":0, 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "title":"Sunday", 
     "fcttext":"Overcast with a chance of rain in the afternoon. High of 64F. Winds from the NE at 5 to 15 mph. Chance of rain 50%.", 
     "fcttext_metric":"Overcast with a chance of rain in the afternoon. High of 18C. Breezy. Winds from the NE at 10 to 20 km/h. Chance of rain 50%.", 
     "pop":"50" 
     } 
     , 
     { 
     "period":1, 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "title":"Sunday Night", 
     "fcttext":"Overcast with a chance of rain. Low of 50F. Winds from the NNE at 5 to 10 mph. Chance of rain 50%.", 
     "fcttext_metric":"Overcast with a chance of rain. Low of 10C. Winds from the NNE at 10 to 15 km/h. Chance of rain 50%.", 
     "pop":"50" 
     } 
     , 
     { 
     "period":2, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Monday", 
     "fcttext":"Partly cloudy with a chance of rain. High of 64F. Winds from the SE at 5 to 10 mph. Chance of rain 20%.", 
     "fcttext_metric":"Partly cloudy with a chance of rain. High of 18C. Winds from the SE at 10 to 15 km/h.", 
     "pop":"20" 
     } 
     , 
     { 
     "period":3, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Monday Night", 
     "fcttext":"Partly cloudy with a chance of rain after midnight. Low of 48F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy with a chance of rain after midnight. Low of 9C. Winds less than 5 km/h.", 
     "pop":"20" 
     } 
     , 
     { 
     "period":4, 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "title":"Tuesday", 
     "fcttext":"Overcast with a chance of rain. High of 59F. Winds from the SSE at 5 to 10 mph. Chance of rain 70%.", 
     "fcttext_metric":"Overcast with a chance of rain. High of 15C. Winds from the SSE at 10 to 15 km/h. Chance of rain 70%.", 
     "pop":"70" 
     } 
     , 
     { 
     "period":5, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Tuesday Night", 
     "fcttext":"Partly cloudy. Low of 48F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy. Low of 9C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":6, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Wednesday", 
     "fcttext":"Partly cloudy. High of 63F. Winds from the South at 5 to 10 mph.", 
     "fcttext_metric":"Partly cloudy. High of 17C. Winds from the South at 5 to 15 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":7, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Wednesday Night", 
     "fcttext":"Partly cloudy. Low of 46F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy. Low of 8C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":8, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Thursday", 
     "fcttext":"Partly cloudy. High of 66F. Winds from the SSE at 5 to 10 mph.", 
     "fcttext_metric":"Partly cloudy. High of 19C. Winds from the SSE at 10 to 15 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":9, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Thursday Night", 
     "fcttext":"Partly cloudy. Low of 52F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy. Low of 11C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":10, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Friday", 
     "fcttext":"Partly cloudy. High of 66F. Winds from the SSE at 5 to 10 mph.", 
     "fcttext_metric":"Partly cloudy. High of 19C. Winds from the SSE at 10 to 15 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":11, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Friday Night", 
     "fcttext":"Partly cloudy. Low of 48F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy. Low of 9C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":12, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Saturday", 
     "fcttext":"Clear. High of 66F. Winds from the South at 5 to 10 mph.", 
     "fcttext_metric":"Clear. High of 19C. Winds from the South at 10 to 15 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":13, 
     "icon":"clear", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/clear.gif", 
     "title":"Saturday Night", 
     "fcttext":"Clear. Low of 50F. Winds less than 5 mph.", 
     "fcttext_metric":"Clear. Low of 10C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":14, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Sunday", 
     "fcttext":"Clear. High of 66F. Winds less than 5 mph.", 
     "fcttext_metric":"Clear. High of 19C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":15, 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "title":"Sunday Night", 
     "fcttext":"Partly cloudy. Low of 52F. Winds less than 5 mph.", 
     "fcttext_metric":"Partly cloudy. Low of 11C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":16, 
     "icon":"clear", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/clear.gif", 
     "title":"Monday", 
     "fcttext":"Clear. High of 68F. Winds less than 5 mph.", 
     "fcttext_metric":"Clear. High of 20C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":17, 
     "icon":"clear", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/clear.gif", 
     "title":"Monday Night", 
     "fcttext":"Clear. Low of 52F. Winds less than 5 mph.", 
     "fcttext_metric":"Clear. Low of 11C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":18, 
     "icon":"mostlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/mostlycloudy.gif", 
     "title":"Tuesday", 
     "fcttext":"Mostly cloudy. High of 68F. Winds less than 5 mph.", 
     "fcttext_metric":"Mostly cloudy. High of 20C. Winds less than 5 km/h.", 
     "pop":"0" 
     } 
     , 
     { 
     "period":19, 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "title":"Tuesday Night", 
     "fcttext":"Mostly cloudy with a chance of rain. Low of 52F. Winds less than 5 mph. Chance of rain 30%.", 
     "fcttext_metric":"Mostly cloudy with a chance of rain. Low of 11C. Winds less than 5 km/h. Chance of rain 30%.", 
     "pop":"30" 
     } 
     ] 
     }, 
     "simpleforecast": { 
     "forecastday": [ 
     {"date":{ 
    "epoch":"1365368400", 
    "pretty":"11:00 PM CEST on April 07, 2013", 
    "day":7, 
    "month":4, 
    "year":2013, 
    "yday":96, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Sun", 
    "weekday":"Sunday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":1, 
     "high": { 
     "fahrenheit":"64", 
     "celsius":"18" 
     }, 
     "low": { 
     "fahrenheit":"50", 
     "celsius":"10" 
     }, 
     "conditions":"Chance of Rain", 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "skyicon":"cloudy", 
     "pop":50, 
     "qpf_allday": { 
     "in": 0.08, 
     "mm": 2.0 
     }, 
     "qpf_day": { 
     "in": 0.04, 
     "mm": 1.0 
     }, 
     "qpf_night": { 
     "in": 0.06, 
     "mm": 1.5 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 11, 
     "kph": 18, 
     "dir": "NE", 
     "degrees": 38 
     }, 
     "avewind": { 
     "mph": 8, 
     "kph": 13, 
     "dir": "NE", 
     "degrees": 44 
     }, 
     "avehumidity": 55, 
     "maxhumidity": 67, 
     "minhumidity": 46 
     } 
     , 
     {"date":{ 
    "epoch":"1365454800", 
    "pretty":"11:00 PM CEST on April 08, 2013", 
    "day":8, 
    "month":4, 
    "year":2013, 
    "yday":97, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Mon", 
    "weekday":"Monday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":2, 
     "high": { 
     "fahrenheit":"64", 
     "celsius":"18" 
     }, 
     "low": { 
     "fahrenheit":"48", 
     "celsius":"9" 
     }, 
     "conditions":"Chance of Rain", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"partlycloudy", 
     "pop":20, 
     "qpf_allday": { 
     "in": 0.04, 
     "mm": 1.0 
     }, 
     "qpf_day": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "qpf_night": { 
     "in": 0.04, 
     "mm": 1.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 8, 
     "kph": 13, 
     "dir": "NNE", 
     "degrees": 32 
     }, 
     "avewind": { 
     "mph": 5, 
     "kph": 8, 
     "dir": "South", 
     "degrees": 182 
     }, 
     "avehumidity": 60, 
     "maxhumidity": 69, 
     "minhumidity": 42 
     } 
     , 
     {"date":{ 
    "epoch":"1365541200", 
    "pretty":"11:00 PM CEST on April 09, 2013", 
    "day":9, 
    "month":4, 
    "year":2013, 
    "yday":98, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Tue", 
    "weekday":"Tuesday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":3, 
     "high": { 
     "fahrenheit":"59", 
     "celsius":"15" 
     }, 
     "low": { 
     "fahrenheit":"48", 
     "celsius":"9" 
     }, 
     "conditions":"Chance of Rain", 
     "icon":"chancerain", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/chancerain.gif", 
     "skyicon":"cloudy", 
     "pop":70, 
     "qpf_allday": { 
     "in": 0.20, 
     "mm": 5.1 
     }, 
     "qpf_day": { 
     "in": 0.17, 
     "mm": 4.3 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 7, 
     "kph": 11, 
     "dir": "South", 
     "degrees": 171 
     }, 
     "avewind": { 
     "mph": 4, 
     "kph": 6, 
     "dir": "South", 
     "degrees": 172 
     }, 
     "avehumidity": 60, 
     "maxhumidity": 67, 
     "minhumidity": 56 
     } 
     , 
     {"date":{ 
    "epoch":"1365627600", 
    "pretty":"11:00 PM CEST on April 10, 2013", 
    "day":10, 
    "month":4, 
    "year":2013, 
    "yday":99, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Wed", 
    "weekday":"Wednesday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":4, 
     "high": { 
     "fahrenheit":"63", 
     "celsius":"17" 
     }, 
     "low": { 
     "fahrenheit":"46", 
     "celsius":"8" 
     }, 
     "conditions":"Partly Cloudy", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"partlycloudy", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_day": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 7, 
     "kph": 11, 
     "dir": "SW", 
     "degrees": 219 
     }, 
     "avewind": { 
     "mph": 5, 
     "kph": 8, 
     "dir": "SSW", 
     "degrees": 195 
     }, 
     "avehumidity": 60, 
     "maxhumidity": 66, 
     "minhumidity": 51 
     } 
     , 
     {"date":{ 
    "epoch":"1365714000", 
    "pretty":"11:00 PM CEST on April 11, 2013", 
    "day":11, 
    "month":4, 
    "year":2013, 
    "yday":100, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Thu", 
    "weekday":"Thursday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":5, 
     "high": { 
     "fahrenheit":"66", 
     "celsius":"19" 
     }, 
     "low": { 
     "fahrenheit":"52", 
     "celsius":"11" 
     }, 
     "conditions":"Partly Cloudy", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"partlycloudy", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_day": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 8, 
     "kph": 13, 
     "dir": "South", 
     "degrees": 187 
     }, 
     "avewind": { 
     "mph": 6, 
     "kph": 10, 
     "dir": "South", 
     "degrees": 175 
     }, 
     "avehumidity": 61, 
     "maxhumidity": 66, 
     "minhumidity": 47 
     } 
     , 
     {"date":{ 
    "epoch":"1365800400", 
    "pretty":"11:00 PM CEST on April 12, 2013", 
    "day":12, 
    "month":4, 
    "year":2013, 
    "yday":101, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Fri", 
    "weekday":"Friday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":6, 
     "high": { 
     "fahrenheit":"66", 
     "celsius":"19" 
     }, 
     "low": { 
     "fahrenheit":"48", 
     "celsius":"9" 
     }, 
     "conditions":"Partly Cloudy", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"partlycloudy", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "qpf_day": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_night": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 8, 
     "kph": 13, 
     "dir": "South", 
     "degrees": 182 
     }, 
     "avewind": { 
     "mph": 6, 
     "kph": 10, 
     "dir": "South", 
     "degrees": 172 
     }, 
     "avehumidity": 72, 
     "maxhumidity": 85, 
     "minhumidity": 50 
     } 
     , 
     {"date":{ 
    "epoch":"1365886800", 
    "pretty":"11:00 PM CEST on April 13, 2013", 
    "day":13, 
    "month":4, 
    "year":2013, 
    "yday":102, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Sat", 
    "weekday":"Saturday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":7, 
     "high": { 
     "fahrenheit":"66", 
     "celsius":"19" 
     }, 
     "low": { 
     "fahrenheit":"50", 
     "celsius":"10" 
     }, 
     "conditions":"Partly Cloudy", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"mostlysunny", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "qpf_day": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 8, 
     "kph": 13, 
     "dir": "South", 
     "degrees": 181 
     }, 
     "avewind": { 
     "mph": 6, 
     "kph": 10, 
     "dir": "South", 
     "degrees": 188 
     }, 
     "avehumidity": 66, 
     "maxhumidity": 82, 
     "minhumidity": 61 
     } 
     , 
     {"date":{ 
    "epoch":"1365973200", 
    "pretty":"11:00 PM CEST on April 14, 2013", 
    "day":14, 
    "month":4, 
    "year":2013, 
    "yday":103, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Sun", 
    "weekday":"Sunday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":8, 
     "high": { 
     "fahrenheit":"66", 
     "celsius":"19" 
     }, 
     "low": { 
     "fahrenheit":"52", 
     "celsius":"11" 
     }, 
     "conditions":"Partly Cloudy", 
     "icon":"partlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/partlycloudy.gif", 
     "skyicon":"sunny", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_day": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 6, 
     "kph": 10, 
     "dir": "SW", 
     "degrees": 232 
     }, 
     "avewind": { 
     "mph": 2, 
     "kph": 3, 
     "dir": "SW", 
     "degrees": 236 
     }, 
     "avehumidity": 61, 
     "maxhumidity": 69, 
     "minhumidity": 44 
     } 
     , 
     {"date":{ 
    "epoch":"1366059600", 
    "pretty":"11:00 PM CEST on April 15, 2013", 
    "day":15, 
    "month":4, 
    "year":2013, 
    "yday":104, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Mon", 
    "weekday":"Monday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":9, 
     "high": { 
     "fahrenheit":"68", 
     "celsius":"20" 
     }, 
     "low": { 
     "fahrenheit":"52", 
     "celsius":"11" 
     }, 
     "conditions":"Clear", 
     "icon":"clear", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/clear.gif", 
     "skyicon":"sunny", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_day": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "qpf_night": { 
     "in": 0.00, 
     "mm": 0.0 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 4, 
     "kph": 6, 
     "dir": "East", 
     "degrees": 81 
     }, 
     "avewind": { 
     "mph": 2, 
     "kph": 3, 
     "dir": "South", 
     "degrees": 172 
     }, 
     "avehumidity": 65, 
     "maxhumidity": 75, 
     "minhumidity": 53 
     } 
     , 
     {"date":{ 
    "epoch":"1366146000", 
    "pretty":"11:00 PM CEST on April 16, 2013", 
    "day":16, 
    "month":4, 
    "year":2013, 
    "yday":105, 
    "hour":23, 
    "min":"00", 
    "sec":0, 
    "isdst":"1", 
    "monthname":"April", 
    "weekday_short":"Tue", 
    "weekday":"Tuesday", 
    "ampm":"PM", 
    "tz_short":"CEST", 
    "tz_long":"Europe/Belgrade" 
}, 
     "period":10, 
     "high": { 
     "fahrenheit":"68", 
     "celsius":"20" 
     }, 
     "low": { 
     "fahrenheit":"52", 
     "celsius":"11" 
     }, 
     "conditions":"Mostly Cloudy", 
     "icon":"mostlycloudy", 
     "icon_url":"http://icons-ak.wxug.com/i/c/k/mostlycloudy.gif", 
     "skyicon":"mostlycloudy", 
     "pop":0, 
     "qpf_allday": { 
     "in": 0.09, 
     "mm": 2.3 
     }, 
     "qpf_day": { 
     "in": 0.01, 
     "mm": 0.3 
     }, 
     "qpf_night": { 
     "in": 0.15, 
     "mm": 3.8 
     }, 
     "snow_allday": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_day": { 
     "in": 0, 
     "cm": 0 
     }, 
     "snow_night": { 
     "in": 0, 
     "cm": 0 
     }, 
     "maxwind": { 
     "mph": 5, 
     "kph": 8, 
     "dir": "SSW", 
     "degrees": 193 
     }, 
     "avewind": { 
     "mph": 4, 
     "kph": 6, 
     "dir": "South", 
     "degrees": 174 
     }, 
     "avehumidity": 69, 
     "maxhumidity": 77, 
     "minhumidity": 56 
     } 
     ] 
     } 
    } 
}

来源

2013-04-07 Aleksandra Sretenovic

有一些关于'JSON'模块，你不明白 – TLP 2013-04-07 10:01:12

您可以轻松地使用JSON模块添加到该字符串加载到Perl中的哈希参考：

use JSON qw(decode_json); 

my $jsonString = "{ ... }"; #Your JSON string 
my $decoded = decode_json($jsonString);

现在$解码变量包含哈希形式的数据和。数组您可以轻松地访问为“周日”例如像这样：

say $decoded->{forecast}{txt_forecast}{forecastday}[0]{title}; #will print'sunday' 

say $decoded->{forecast}{txt_forecast}{forecastday}[0]{"fcttext"}; #will return sunday's weather text

来源

2013-04-07 10:04:32 Stasel

T'他是一个风格问题，但我更喜欢'说$解码 - > {预测} {text_forecast} {forecastday} [0] {title};'，因为嵌套的' - >'是不必要的，不）引用哈希下标可能是一个好主意。还要注意尾部的分号，以及'say'函数而不是'print'。 – amon 2013-04-07 10:13:49

谢谢！我们在这里把它放在哈希中吗？我的$ decode = decode_json（$ jsonString）; – 2013-04-07 10:46:31

@AleksandraSretenovic是的，'decode_json'函数执行此操作。 – Stasel 2013-04-07 11:19:54

从文本中采取某些部分用Perl

回答

相关问题