Как я могу получить среднюю погоду для любого данного почтового индекса в Perl?

Question

Есть ли модуль Perl для получения среднего значения? температура для любого данного почтового индекса? Например, в Википедии есть Avg. высокий, средний низкая и среднесуточная температура для Лос-Анджелеса .

Я бы хотел как-то сделать это в Perl, но не могу найти модуль для этого (например, введите 10001 и получите среднюю температуру для Нью-Йорка).

Answer 1

Поиск CPAN для «погоды» дает вам массу вариантов, включая Google Weather , weather.com и Weather Underground .

Большинство из них просто выбирают URL и анализируют результирующий XML или JSON. Поэтому, если вы не хотите использовать модули, вы можете сделать это вручную, используя LWP :: Simple и XML :: Simple или JSON :: Any разобрать результат.

Answer 2

http://www.melissadata.com/lookups/ZipWeather.asp?ZipCode=XXXXX

Для Нью-Йорка: http://www.melissadata.com/lookups/ZipWeather.asp?ZipCode=10001

Затем сверните и проанализируйте результат ...