Obtendo a temperatura com Perl

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

[ Hits: 1.306 ]

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

Script para fazer buscas no arquivo de logs do squid

VimeoTheSapo -Baixe videos do Vimeo e do sapo

Gmail::SendMail - Enviando emails usando gmail

Tweetin - Poste tweets pelo terminal

Synner Novo Sys(TCP) Flooder em Perl


  

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