|
|
|
@ -9,9 +9,9 @@ use FileHandle;
|
|
|
|
|
|
|
|
|
|
local $| = 1;
|
|
|
|
|
|
|
|
|
|
my $subclient = "/usr/bin/mosquitto_sub -t sensors/cc128/raw -q 2";
|
|
|
|
|
my $pubclient = "/usr/bin/mosquitto_pub -t sensors/cc128 -q 2 -l";
|
|
|
|
|
my $pubclient_ch1 = "/usr/bin/mosquitto_pub -t sensors/cc128/ch1 -q 2 -l";
|
|
|
|
|
my $subclient = "mosquitto_sub -t sensors/cc128/raw -q 1";
|
|
|
|
|
my $pubclient = "mosquitto_pub -t sensors/cc128 -q 1 -l";
|
|
|
|
|
my $pubclient_ch1 = "mosquitto_pub -t sensors/cc128/ch1 -q 1 -l";
|
|
|
|
|
|
|
|
|
|
open(SUB, "$subclient|");
|
|
|
|
|
open(PUB, "|$pubclient");
|
|
|
|
@ -23,7 +23,7 @@ PUB_CH1->autoflush(1);
|
|
|
|
|
|
|
|
|
|
while (my $line = <SUB>) {
|
|
|
|
|
#<msg><src>CC128-v0.12</src><dsb>00002</dsb><time>00:02:12</time><tmpr>15.7</tmpr><sensor>0</sensor><id>03112</id><type>1</type><ch1><watts>00108</watts></ch1></msg>
|
|
|
|
|
if ($line =~ m#<time>(.*)</time><tmpr> *([\-\d.]+)</tmpr><sensor>0</sensor><id>[0-9]*</id><type>1</type><ch1><watts>0*(\d+)</watts></ch1></msg#){
|
|
|
|
|
if ($line =~ m#<time>(.*)</time><tmpr> *([\-\d.]+)</tmpr><sensor>0</sensor><id>[0-9]*</id><type>1</type><ch1><watts>0*(\d+)</watts></ch1></msg.*#){
|
|
|
|
|
my $reading_time = $1;
|
|
|
|
|
my $temp = $2;
|
|
|
|
|
my $watts = $3;
|
|
|
|
|