Obtendo a temperatura com Perl [Perl]

Obtendo a temperatura com Perl

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

[ Hits: 5.278 ]

Homepage: http://bivee.com.br

Download climate.pl

1 0

Denuncie Favoritos Indicar

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

Index Location

Script para X-chat

Gerir VirtualHosts do Apache

Upload de múltiplos arquivos para Imageshack.us

Pesquisar palavras no Diário Oficial da União

Comentários

Nenhum comentário foi encontrado.