Obtendo a temperatura com Perl
Publicado por Daniel Vinciguerra (última atualização em 03/03/2016)
[ Hits: 5.284 ]
Homepage: http://bivee.com.br
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
#!/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!"; }
Synner Novo Sys(TCP) Flooder em Perl
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
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Preciso resolver um erro de DPKG (1)
Melhores Práticas de Nomenclatura: Pastas, Arquivos e Código (2)
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta