¿Qué soft utilizáis para vuestra estación?

use File::Copy;
use LWP::Simple;
$interval = 29;
my $forquilla = ($interval and ($^O !~ /mswin32/i));
do {
my $pid = $$;
my $nanoenforquillat;
if ($forquilla) {
my $nano;
$SIG{CHLD} = 'IGNORE';
$nano = fork;
die "cagada pastoret: $!\n" unless defined $nano;
$nanoenforquillat++ if (!$nano);
}
if ($nanoenforquillat or !$forquilla) {
&tira;
}
exit if ($nanoenforquillat);
sleep ($interval);
} while $interval;
0;

sub tira {
&digueshora;
&clientraw;
}

sub digueshora {
my ($segon,$minut,$hores,$dia,$mes,$any);
($segon,$minut,$hores,$dia,$mes,$any) = (localtime(time))[0,1,2,3,4,5];
$hora = $hores;
$hores = "0$hores" if ($hores < 10);
$dia = "0$dia" if ($dia < 10);
$mes = $mes + 1;
$mes = "0$mes" if ($mes < 10);
$any += 1900;
$avui = ("$dia.$mes.$any\_$hores\_UTC");
$segons = $segon;
# $segons = "0$segons" if ($segons < 10);
$minuts = $minut;
$minuts = "0$minuts" if ($minuts < 10);
$avuim = "$dia.$mes.$any\_$hores\.$minuts\_UTC";
}

sub clientraw {
$arxiu = "C\:\/vws\/jpeg\/clientraw.txt";
$arxiuorigen = "C\:\/vws\/jpeg\/wflash.txt";
if (!$arxiuorigen or !-e $arxiuorigen) {
# ha fallat, passem i demà serà un altre dia
} else {
$pagina1 = "";
open(TAULA,$arxiuorigen);
@lines = <TAULA>;
close(TAULA);
foreach $line(@lines) {
$pagina1 .= $line;
}
($id,$horas,$dum,$dirvent,$velo,$ratx,$humi,$humf,$tempi,$tempf) = split(",", $pagina1);
}
$tempi = &celsius($tempi);
$tempf = &celsius($tempf);
$humi = sprintf("%.f", $humi);
$humf = sprintf("%.f", $humf);
$velo = $velo*0.86842;
$ratx = $ratx*0.86842;
$horas =~ s{^ }{};
$arxiuorigen = "C\:\/vws\/jpeg\/wdl\.htm";
if (!$arxiuorigen or !-e $arxiuorigen) {
# provem si la resta almenys funciona...
} else {
$pagina = "";
open(TAULA,$arxiuorigen);
@lines = <TAULA>;
close(TAULA);
foreach $line(@lines) {
$pagina .= $line;
}
$pagina =~ s~ 12345~12345~ig;
$pagina =~ s~velo~$velo~ig;
$pagina =~ s~ratx~$ratx~ig;
$pagina =~ s~direccio~$dirvent~ig;
$pagina =~ s~tempf~$tempf~ig;
$pagina =~ s~humf~$humf~ig;
$pagina =~ s~tempi~$tempi~ig;
$pagina =~ s~humi~$humi~ig;
$pagina =~ s~soiltemp~0~ig;
$pagina =~ s~forecast~0~ig;
$pagina =~ s~llocihora~Nom_estacio_$horas~ig;
$pagina =~ s~tempomax~$tempomax~ig;
$pagina =~ s~ ~ ~ig;
}
@resultat = split(" ", $pagina);
@resultat[6] = sprintf("%.2f", @resultat[6]+77);
@resultat[8] = sprintf("%.2f", @resultat[8]-@resultat[9]);
@resultat[9] = "";
@resultat[10] = sprintf("%.2f", @resultat[10]-@resultat[11]);
@resultat[11] = "";
@resultat[73] = &kts(@resultat[73]);
@resultat[75] = &feet(@resultat[75]);
@resultat[115] = &kts(@resultat[115]);
$pagina = "";
foreach $resultat(@resultat) {
if ($resultat ne "") {
$pagina .= "$resultat ";
}
}
# $pagina =~ s~ ~ ~ig;
open SOB, ">$arxiu" or $error = $!;
print SOB qq~$pagina~;
close SOB;
}

sub celsius {
my $torna = shift;
$torna = ($torna - 32) * .55555555555555555555;
$torna = sprintf("%.1f", $torna);
return $torna;
}
sub kts {
my $torna = shift;
return sprintf("%.2f", (0.53961*$torna));
}
sub feet {
my $torna = shift;
return sprintf("%.2f", (3.28084*$torna));
}