Weather Channel for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.438 ]
Homepage: https://github.com/adaoraul
Script que mostra diversas informações sobre o tempo em sua cidade no torsmo
#!/usr/bin/perl -w # Script criado para ser usado com o torsmo # mostra a previsao do tempo da cidade # escolhida # # by dark_on_weed # Colocar o nome da cidade # Algumas cidades podem dar problemas, # mas será corrigido na proxima versão. my $cidade = "Porto Alegre"; ########################################################################### use POSIX; use LWP::Simple; my $numArgs = $#ARGV+1; my $key = $ARGV[0]; my $conteudo = get("http://br.weather.com/search/search/?where=$cidade&what="); sub temperatura { @temperatura = split(/<TD COLSPAN=\"2\" CLASS=\"obsTempText\" VALIGN=\"TOP\">/,$conteudo); @temperatura = split(/<\/TD>/,$temperatura[1]); $temperatura[0] =~ s/(_[^_]*_[^_]*_)|( )//; $temperatura[0] =~ s/(_[^_]*_[^_]*_)|(°C)//; return $temperatura[0]; } sub vento { @vento = split(/<TD CLASS=\"currentObsText\">/,$conteudo); @vento = split(/<\/TD>/,$vento[1]); return $vento[0]; } sub umidade { @umidade = split(/<TD CLASS=\"currentObsText\">/,$conteudo); @umidade = split(/<\/TD>/,$umidade[3]); return $umidade[0]; } if($key eq "Temp") { $temperatura = temperatura(); print "$temperatura"; } elsif($key eq "Umidade") { $umidade = umidade(); print "$umidade"; } elsif($key eq "Vento") { $vento = vento(); print "$vento"; } elsif($key eq "Cidade") { print "$cidade"; }
Diminuir ou aumentar o brilho de notebook
Calculadora com Perl com menos de 10 linhas de código
Testando a agilidade do sistema de arquivos
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Alguém já usou o framework Avalonia para desenvolver interfaces de usu... (4)
Ajuda Pra Melhoria do NFTABLES. (8)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (2)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)