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

• Download climate.pl
• Enviar nova versão

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!";
}

Sarg Diario

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Index Location

Descobrir operadora de celular

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Nenhum comentário foi encontrado.