Obtendo a temperatura com Perl

Publicado por Daniel Vinciguerra (última atualização em 03/03/2016)

[ Hits: 1.332 ]

Homepage: http://bivee.com.br

Download climate.pl




Por vezes, nós precisamos obter algumas informações de algum site automaticamente, para automatizar algum relatório ou mostrar algum status.

O módulo LWP::UserAgent do Perl pode lhe ajudar nessa tarefa, fazendo as vezes de um "navegador" e permitindo que façamos consultas e acessemos informações de sites programaticamente.

Executando:

$ perl climate.pl

Referência: https://metacpan.org/pod/LWP::UserAgent

  



Esconder código-fonte

#!/usr/bin/env perl
# 2016 (c) Daniel Vinciguerra

use strict;
use warnings;

use LWP::UserAgent;

# estado + cidade em formato snake case (minusculo e underline como espaço)
my $config = {
    state => 'sp', city => 'sao_paulo'
};

# iniciando novo objeto LWP::UserAgent
my $ua  = LWP::UserAgent->new;
my $res = $ua->get("http://tempo.folha.com.br/$config->{state}/$config->{city}");

if ( $res->is_success ) {
    # obtendo a temperatura
    my ($temp) = $res->content =~ m#<div class="temperature">\s*<strong>(\d*).*</strong>#;
    print "Temperatura: ${temp}C";
}
else {
    # erro
    print "Erro: Não foi possível obter a temperatura!";
}



Scripts recomendados

Pesquisar palavras no Diário Oficial da União

Baixar o Diário Oficial da União e salvar como um único PDF completo

Descubra se seu e-mail ou conta foi "pwned"

Admin Finder

Iniciando desenvolvimento web ágil com Perl (Mojolicious)


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor HostGator.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Viva o Android

Tópicos

Top 10 do mês

Scripts