[gelöst] Perl Frage zu Userreading

[Waldmensch]

Ich habe ein Userreading, was mir über die Stati des Mähroboters die Gartenbewässerung beeinflussen soll. Folgender Code:

Code Auswählen Erweitern

Collision_Risk:status:.* {
my @array = ( 4,5,6,30,32,33 );
my $match = ReadingsVal("$name","status",0);
(grep /$match/,@array) ? 1 : 0;;}

Das funktioniert soweit, bis auf die Tatsache, das bei $match = 0 das grep scheinbar einen Treffer landet und das Userreading eine unerwünschte 1 zurückgibt. Kann ein Perl Fuchs mal drüberschauen und einen Tipp geben, wie das zu umschiffen ist? Der Plan ist, wenn $match exakt im @array enthalten ist, soll das Userreading 1 sein. In allen anderen Fällen 0. Ich wollte mir eine Schleife oder switch/case ersparen.

[Otto123]

ich bin kein Perl Fuchs aber ein Blick ins Buch bzw. hier http://www.hidemail.de/blog/grep-perl.shtml
sagt mir, der grep Ausdruck sollte so sein:

Code Auswählen Erweitern

grep {$_==$match}@array

Der gibt aber auch schon 1 und 0 zurück, also den ? Teil Kannst Du Dir aus meiner Sicht sparen.
Also so, ungetestet:

Code Auswählen Erweitern

Collision_Risk:status:.* {
my @array = ( 4,5,6,30,32,33 );
my $match = ReadingsVal("$name","status",0);
grep {$_==$match}@array}

Gruß Otto

[DeeSPe]

Einfach im Regex Anfang und Ende beschränken:

Code Auswählen Erweitern

(grep /^$match$/,@array) ? 1 : 0;;

Gruß
Dan

[Waldmensch]

Einfach im Regex Anfang und Ende beschränken:

Code Auswählen Erweitern

(grep /^$match$/,@array) ? 1 : 0;;

Gruß
Dan

BINGO! Genau so funzt es

Code Auswählen Erweitern

Collision_Risk:status:.* {
my @array = ( 4,5,6,30,32,33 );
my $match = ReadingsVal("$name","status",0);
(grep /^$match$/,@array) ? 1 : 0;;}