diff --git a/FHEM/92_FileLog.pm b/FHEM/92_FileLog.pm index 563c5db00..c3b6a4e8c 100755 --- a/FHEM/92_FileLog.pm +++ b/FHEM/92_FileLog.pm @@ -367,15 +367,8 @@ FileLog_fhemwebFn($$$$) $ret .= "
Regexp parts"; $ret .= "
"; - - my $regexp= $hash->{REGEXP}; - my @ra= (); - while($regexp =~ /^(.+?:.+?)\|(.+?:.+)$/) { - push @ra, $1; - $regexp= $2; - } - push @ra, $regexp; - if(@ra > 0) { + my @ra = split(/\|/, $hash->{REGEXP}); + if(@ra > 1) { foreach my $r (@ra) { $ret .= ""; my $cmd = "cmd.X= set $d removeRegexpPart&val.X=$r"; # =.set: avoid JS