Weather Channel for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.507 ]
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"; }
Testando a agilidade do sistema de arquivos
MyBF - Interpretador de BrainFuck
Wallpapers aleatórios no Fluxbox
Nenhum comentário foi encontrado.
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (5)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)