Weather Channel for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.526 ]
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";
}
Tirando screenshots facilmente !
Remover lista de pacotes do Portage
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
O programa assinador digital (1)
PIP3 - erro ao instalar módulo do mariadb para o Python (9)
É normal não gostar de KDE? (8)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)









