FHEM/mod-XiaomiBTLESens
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change split syntax

Browse Source
This commit is contained in:
Marko Oldenburg
2020-05-11 12:32:39 +02:00
parent 1d73180f9c
commit 2468631700
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
74_XiaomiBTLESens.pm
View File

@@ -678,7 +678,7 @@ sub ExecGatttool_Run {
my $string = shift; my $string = shift;
my ( $name, $mac, $gattCmd, $handle, $value, $listen ) = my ( $name, $mac, $gattCmd, $handle, $value, $listen ) =
split( '\|', $string ); split '\|', $string;
my $sshHost = AttrVal( $name, 'sshHost', 'none' ); my $sshHost = AttrVal( $name, 'sshHost', 'none' );
my $gatttool; my $gatttool;
my $json_notification; my $json_notification;
@@ -755,7 +755,7 @@ qx(ssh $sshHost '$psCommand | grep -E "$gatttoolCmdlineStaticEscaped"')
); );
( $returnString, $returnCode ) = Gatttool_executeCommand($cmd); ( $returnString, $returnCode ) = Gatttool_executeCommand($cmd);
@gtResult = split( ': ', $returnString ); @gtResult = split /:\s/, $returnString;
Log3( $name, 5, Log3( $name, 5,
"XiaomiBTLESens ($name) - ExecGatttool_Run: gatttool loop result " "XiaomiBTLESens ($name) - ExecGatttool_Run: gatttool loop result "
@@ -787,7 +787,7 @@ qx(ssh $sshHost '$psCommand | grep -E "$gatttoolCmdlineStaticEscaped"')
if ( !defined( $gtResult[1] ) ); if ( !defined( $gtResult[1] ) );
if ( $gtResult[1] ne 'no data response' && $listen ) { if ( $gtResult[1] ne 'no data response' && $listen ) {
( $gtResult[1] ) = split( '\n', $gtResult[1] ); ( $gtResult[1] ) = split '\n', $gtResult[1];
$gtResult[1] =~ s/\\n//g; $gtResult[1] =~ s/\\n//g;
} }
@@ -822,7 +822,7 @@ sub ExecGatttool_Done {
my $string = shift; my $string = shift;
my ( $name, $mac, $respstate, $gattCmd, $handle, $json_notification ) = my ( $name, $mac, $respstate, $gattCmd, $handle, $json_notification ) =
split( '\|', $string ); split /\|/, $string;
my $hash = $defs{$name}; my $hash = $defs{$name};
@@ -1034,7 +1034,7 @@ sub FlowerSensHandle0x38 {
Log3( $name, 4, "XiaomiBTLESens ($name) - FlowerSens Handle0x38" ); Log3( $name, 4, "XiaomiBTLESens ($name) - FlowerSens Handle0x38" );
my @dataBatFw = split( /\s/, $notification ); my @dataBatFw = split /\s/, $notification;
### neue Vereinheitlichung für Batteriereadings Forum #800017 ### neue Vereinheitlichung für Batteriereadings Forum #800017
$readings{'batteryPercent'} = hex( "0x" . $dataBatFw[0] ); $readings{'batteryPercent'} = hex( "0x" . $dataBatFw[0] );
@@ -1062,7 +1062,7 @@ sub FlowerSensHandle0x35 {
Log3( $name, 4, "XiaomiBTLESens ($name) - FlowerSens Handle0x35" ); Log3( $name, 4, "XiaomiBTLESens ($name) - FlowerSens Handle0x35" );
my @dataSensor = split( /\s/, $notification ); my @dataSensor = split /\s/, $notification;
return stateRequest($hash) return stateRequest($hash)
if ( $dataSensor[0] eq "aa" if ( $dataSensor[0] eq "aa"
@@ -1136,7 +1136,7 @@ sub ThermoHygroSensHandle0x10 {
return stateRequest($hash) return stateRequest($hash)
if ( $notification !~ /^([0-9a-f]{2}(\s?))*$/ ); if ( $notification !~ /^([0-9a-f]{2}(\s?))*$/ );
my @numberOfHex = split( /\s/, $notification ); my @numberOfHex = split /\s/, $notification;
$notification =~ s/\s+//g; $notification =~ s/\s+//g;
@@ -1232,7 +1232,7 @@ sub mijiaLYWSD03MMC_Handle0x38($$) {
return stateRequest($hash) return stateRequest($hash)
unless ( $notification =~ /^([0-9a-f]{2}(\s?))*$/ ); unless ( $notification =~ /^([0-9a-f]{2}(\s?))*$/ );
my @splitVal = split( ' ', $notification ); my @splitVal = split /\s/, $notification;
$notification =~ s/\s+//g; $notification =~ s/\s+//g;
@@ -1314,7 +1314,7 @@ sub ClearGrassSensHandle0x1e {
return stateRequest($hash) return stateRequest($hash)
if ( $notification !~ /^([0-9a-f]{2}(\s?))*$/ ); if ( $notification !~ /^([0-9a-f]{2}(\s?))*$/ );
my @numberOfHex = split( /\s/, $notification ); my @numberOfHex = split /\s/, $notification;
$notification =~ s/\s+//g; $notification =~ s/\s+//g;