Obtendo a temperatura com Perl

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

[ Hits: 5.284 ]

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

Synner Novo Sys(TCP) Flooder em Perl

AUTENTICACAO VELOX

SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Upload de múltiplos arquivos para Imageshack.us


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts