showtemp.pl

WWVB receiver using AVR.

#!/usr/bin/perl

$ACQUIRECMD = 'nc ente.hawo.stw.uni-erlangen.de 7337';
@OUTPUTCMD = ('./clockrcon','ntp-clock','FICKEN32',1);

unless (open(TEMPACQ,$ACQUIRECMD.'|')) {
        print("ERROR: Could not execute Acquire-Command!\n");
        exit(-1);
}
$curtempa=<TEMPACQ>;
close(TEMPACQ);
unless ($curtempa=~/^(-{0,1}[0-9]{1,2})\.([0-9][0-9])[^0-9]/) {
	print("Sorry, no valid temperature read: Command returned: '$curtempa'\n");
	exit(1);
}
$gradvk=$1; $gradhk=$2;
if ($gradvk <= -10) {
	$tempoutput = sprintf("%3d.%01d", $gradvk, int($gradhk/10));
} else {
	$tempoutput = sprintf("%2d.%02d", $gradvk, $gradhk);
}
$tempoutput .= '癈';
print("$tempoutput\n");
push(@OUTPUTCMD, $tempoutput);
system(@OUTPUTCMD);