#!/usr/bin/perl use Net::FTP; use strict; # Servidor güeb my $Ftpserver = "nuestro servidor güeb"; # Login de nuestro servidor güeb my $Login = "Usuario"; # Contraseña de nuestro servidor güeb my $Pwd = "Contraseña"; my $Salida = "/tmp/tiempo.html"; # Nombre del usuario de nuestro pc para acceso a datos DCOP my $Usuario = "Usuario"; # Lectura de datos my $Id = `dcop --user $Usuario KWeatherService WeatherService listStations`; chop($Id); my $Pais = `dcop --user $Usuario KWeatherService WeatherService stationCountry '$Id'`; my $Estacion = `dcop --user $Usuario KWeatherService WeatherService stationName '$Id'`; my $fecha = `dcop --user $Usuario KWeatherService WeatherService date '$Id'`; my $Icono = `dcop --user $Usuario KWeatherService WeatherService currentIconString '$Id'`; my $Temperatura = `dcop --user $Usuario KWeatherService WeatherService temperature '$Id'`; my $Condensacion = `dcop --user $Usuario KWeatherService WeatherService dewPoint '$Id'`; my $Presion = `dcop --user $Usuario KWeatherService WeatherService pressure '$Id'`; my $Humedad = `dcop --user $Usuario KWeatherService WeatherService relativeHumidity '$Id'`; my $Viento = `dcop --user $Usuario KWeatherService WeatherService wind '$Id'`; my $Sensacion = `dcop --user $Usuario KWeatherService WeatherService windChill '$Id'`; my $Orto = `dcop --user $Usuario KWeatherService WeatherService sunRiseTime '$Id'`;; my $Ocaso = `dcop --user $Usuario KWeatherService WeatherService sunSetTime '$Id'`; my $Tiempo = `dcop --user $Usuario KWeatherService WeatherService weather '$Id'`; my $Cover = `dcop --user $Usuario KWeatherService WeatherService cover '$Id'`; $Presion =~ /^(\d+).*$/; $Presion = $1 * 0.75; $Presion = $Presion." mmHg"; open FSALIDA , ">".$Salida; print FSALIDA <

$Estacion

$fecha

$Cover

Temperatura: $Temperatura

Sensación: $Sensacion

$Tiempo

Presión: $Presion

Viento: $Viento

Humedad Relativa: $Humedad

Orto: $Orto\tOcaso: $Ocaso

EOF close FSALIDA; my $ftp; $ftp = Net::FTP->new($Ftpserver, Debug => 0) or die, $ftp->message; $ftp->login($Login, $Pwd) or die, $ftp->message; $ftp->put($Salida) or die, $ftp->message; $ftp->quit;