{"temp":75.50,"tmode":2,"fmode":0,"override":0,"hold":0,"t_cool":75.00,"tstate":0,"fstate":0,"time":{"day":4,"hour":13,"minute":49},"t_type_p
ost":0}

##</code><code>##


#! /usr/bin/perl

open (FILE, '/home/julian/tstatcollect');
while (<FILE>) {
chomp;
(undef,$temp, undef,$tmode, undef,$fmode, undef,$override, undef,$hold, undef,$tcool, undef,$tstate, undef,$fstate, undef,$time, undef,$day, undef,$hour, undef,$minute, undef,$t_type_post,) = map split (":"), split (","), ;
print "Temperature:  $temp\n";
print "Tmode:	$tmode\n";
print "Fmode:	$fmode\n";
print "Override:	$override\n";
print "Hold:	$hold\n";
print "tcool:	$tcool\n";
print "tstate: 	$tstate\n";
print "fstate:	$fstate\n";
print "day:	$day\n";
print "hour:	$hour\n";
print "minute:	$minute\n";
print "t_type_post	$t_type_post\n";
	
print "________\n";
}
close (FILE);
exit;
 

##</code><code>##

Temperature:  75.50
Tmode:	2
Fmode:	0
Override:	0
Hold:	0
tcool:	75.00
tstate: 	0
fstate:	0
day:	"hour"
hour:	"minute"
minute:	"t_type_post"
t_type_post	"