Obtendo a temperatura com Perl
Publicado por Daniel Vinciguerra (última atualização em 03/03/2016)
[ Hits: 5.405 ]
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!"; }
Obtendo o IP público (Internet) usando o Perl
Upload de múltiplos arquivos para Imageshack.us
Localizador de palavras em arquivos nao binarios
Nenhum comentário foi encontrado.
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Como Instalar o Microsoft Teams no Linux Ubuntu