Weather Channel for Torsmo

Descrição

Esconder código-fonte

#!/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";
}