Perl 操作天气 API227

Perl 语言提供了丰富的模块和框架，可轻松操作天气 API 并从各种天气服务中获取数据。本文将指导您使用 Perl 代码从 OpenWeatherMap（OWM） API 获取天气数据。

安装 Perl 模块

首先，您需要安装 Perl 模块以连接 OWM API。可以使用以下命令通过 CPAN（Perl 的综合包存档网络）安装 LWP::UserAgent 和 JSON 模块：cpan install LWP::UserAgent JSON
复制代码

连接到 OWM API

安装模块后，您可以使用 LWP::UserAgent 模块创建 HTTP 客户端来连接到 OWM API：use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
复制代码

获取 API 密钥

要访问 OWM API，您需要一个 API 密钥。您可以从 OWM 网站免费获取 API 密钥。

构造 API URL

构造 API URL 时，您需要指定要获取的特定天气数据。对于基本天气信息，URL 应包含以下信息：* API 基础 URL：/data/2.5/weather
* API 密钥作为查询参数
* 要查找天气的城市名称或邮政编码
例如，要获取纽约市的天气，URL 将为：
/data/2.5/weather?q=New York City&appid=
复制代码

发送 HTTP 请求

使用构造的 URL，您可以使用 HTTP::Request 模块发送 HTTP GET 请求：use HTTP::Request;
my $req = HTTP::Request->new(GET => $url);
复制代码

获取响应

发送请求后，可以使用 HTTP::Response 模块获取服务器响应：my $res = $ua->request($req);
复制代码

解析 JSON 响应

OWM API 返回 JSON 格式的响应。可以使用 JSON 模块解析 JSON 响应并提取所需的天气数据：use JSON;
my $response = JSON->new->decode($res->content);
复制代码

获取特定天气数据

从解析的 JSON 响应中，您可以提取特定天气数据，例如温度、湿度和风速：my $temperature = $response->{'main'}{'temp'};
my $humidity = $response->{'main'}{'humidity'};
my $wind_speed = $response->{'wind'}{'speed'};
复制代码

示例代码

以下是使用 Perl 获取 OWM API 中天气数据的完整示例代码：#!/usr/bin/perl
use LWP::UserAgent;
use JSON;
use HTTP::Request;
# 获取 API 密钥
my $api_key = '';
# 构造 API URL
my $url = "/data/2.5/weather?q=New York City&appid=" . $api_key;
# 发送 HTTP 请求
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
# 解析 JSON 响应
my $response = JSON->new->decode($res->content);
# 获取特定天气数据
my $temperature = $response->{'main'}{'temp'};
my $humidity = $response->{'main'}{'humidity'};
my $wind_speed = $response->{'wind'}{'speed'};
# 打印天气数据
print "温度： $temperature 度";
print "湿度： $humidity %";
print "风速： $wind_speed m/s";
复制代码