Foro - Perl en Español

¿Seguro que es el mismo código? Según la segunda captura, tienen tamaño distinto.

Compara las dos versiones. Si aun así no ves las diferencias, publica aquí el código del programa, a ver si vemos el error.

En cuanto a lo de la clave de acceso a la API, necesitas solicitar una clave para que el programa pueda acceder a la API de esa web. Más información aquí (resumen).

Como diga, señor.

Se encuentra en este enlace:

http://search.cpan.org/~avenj/Weather-O ... therMap.pm

*******************************************************************

use Weather::OpenWeatherMap;

my $api_key = 'foo';

my $wx = Weather::OpenWeatherMap->new(
api_key => $api_key,
);

# Current conditions:
my $current = $wx->get_weather(
location => 'Manchester, NH',
);
my $tempf = $current->temp_f;
my $wind = $current->wind_speed_mph;
# (see Weather::OpenWeatherMap::Result::Current)

# Forecast conditions:
my $forecast = $wx->get_weather(
location => 'Manchester, NH',
forecast => 1,
days => 3,
);
for my $day ($forecast->list) {
my $date = $day->dt->mdy;
my $temp_lo = $day->temp_min_f,
my $temp_hi = $day->temp_max_f,
# (see Weather::OpenWeatherMap::Result::Forecast::Day)
}
# (see Weather::OpenWeatherMap::Result::Forecast)

# Find a city:
my $search = $wx->get_weather(
location => 'Manchester',
find => 1,
max => 5,
);
for my $place ($search->list) {
my $region = $place->country;
# ...
}
# (see Weather::OpenWeatherMap::Result::Find)

********************************************************

Como dice en la página de manual de Weather::OpenWeatherMap, de donde sacaste el código, tienes que registrarte en la web de OpenWeatherMap para poder obtener una clave API, y luego ponerla en el código, en el lugar donde pone 'foo'.

¡Qué mala suerte...! Todavía no me devuelve nada...

En lugar de 'foo' puse la clave y no pasa nada.

La puse con comillas simples, dobles, etc... Y nada

¿Qué puede estar pasando?

Pues... no lo sé... si no salen mensajes de error, poco podemos hacer.

Pero, podemos investigar.

A través de la página de la distribución llegamos a que hay una carpeta de ejemplos. En ella hay tres programas de ejemplo. En uno de ellos veo cómo mostrar en pantalla los errores, para saber qué pasa si algo anda mal:

die "Error: " . $wx->error unless $wx->is_success;

Esta línea la debes poner después de la línea del new(), otra copia detrás de la del get_weather(). Si ocurre un error, saldrá en pantalla.

Otra cosa... He leído en la página de OpenWeatherMap que solo se puede hacer una petición de temperatura cada diez minutos, y por dispositivo, para evitar abusos (y por que además, la temperatura no suele cambiar tanto). En cuanto veas el primer resultado, deberás esperar ese tiempo para hacer la siguiente consulta.

Otra cosa que veo en los ejemplos es que se puede intentar hacer una petición sin envío de la clave API. Échales un vistazo.

Yo me he instalado el módulo, y he copiado uno de los ejemplos y lo he modificado así:
He modificado las líneas de $location y $api_key para que, en lugar de pasarlos como argumentos, los escribo directamente en el programa. He puesto 'Valladolid, ES' para la posición, y nada para la clave de la API (por hacer una prueba). También cambié (por intuición) el nombre del método temp_f() por temp_c(), y el de wind_speed_mph() por wind_speed_kph(), a ver si hay suerte y devuelve los datos en el sistema internacional de unidades.

Lo he grabado y ejecutado, y sale esto:
Y sí... ha funcionado.

Los nombres de los métodos que puedes usar debes consultarlos en la documentación de la API de OpenWeatherMap.