Foro - Perl en Español

por **explorer** » 2014-06-21 00:42 @071

¿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)

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

por **explorer** » 2014-06-21 01:18 @096

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'.

por **19ctrj88** » 2014-06-21 01:46 @115

¡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?

por **explorer** » 2014-06-21 09:21 @431

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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strictures 1;
 
use Weather::OpenWeatherMap;
 
#my $location = shift @ARGV || die "No location specified\n";
my $location = 'Valladolid, ES';
#my $api_key  = shift @ARGV;
my $api_key;
 
 
warn "Attempting to continue without API key\n" unless $api_key;
 
my $result = 
  Weather::OpenWeatherMap->new(
      ( $api_key ? (api_key => $api_key) : () ) 
  )
    ->get_weather(
        location => $location, 
    );
    
die "Error: ".$result->error unless $result->is_success;
 
my $place = $result->name;
my $temp  = $result->temp_c;
my $wind  = $result->wind_speed_kph;
my $direc = $result->wind_direction;
 
print "$place -> ${temp} C wind ${wind} kph $direc\n";
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ perl weather.pl
Attempting to continue without API key
Valladolid -> 25 C wind 6 kph SW
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y sí... ha funcionado.

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

Foro - Perl en Español

Instalar y ejecutar módulo

Re: Instalar y ejecutar módulo

Publicidad

Re: Instalar y ejecutar módulo

Re: Instalar y ejecutar módulo

Re: Instalar y ejecutar módulo

Re: Instalar y ejecutar módulo

¿Quién está conectado?