Obtendo a temperatura com Perl
Publicado por Daniel Vinciguerra (última atualização em 03/03/2016)
[ Hits: 5.465 ]
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!"; }
Pesquisar palavras no Diário Oficial da União
Upload de múltiplos arquivos para Imageshack.us
Buscar Traduções no Google Translate
Gmail::SendMail - Enviando emails usando gmail
Postando mensagem no Facebook com Perl
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Problema com o Centro de Aplicativos Ubuntu 25.04 (4)
Impressora Elgin/Bematech - MP4200HS - Via serrvidor CUPS (0)
E aí? O Warsaw já está funcionando no Debian 13? (10)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (6)