Mehrfachbedingung für DOIF

[AndyMu]

Hallo zusammen,

ich gebe auf... ich finde einfach nicht raus, wo mein Problem ist.
Das DOIF sieht so aus:

Code Auswählen Erweitern

([15:00-23:00] and [DevDummy] <70 and [DevDummy] >=30 and [eg_wz_dim_LED_Sw] ne "on")({
use Math::Round qw/round/;;
my $tlw=Value("DevDummy");;
#my $tlw=ReadingsVal("myTL","twilight_weather",100)
$tlw=abs($tlw-50);;
$tlw=Math::Round::round($tlw);;
my $proz=$tlw*2.5;;
if($proz<100){fhem("set eg_wz_dim_LED_Sw $proz")}
else{fhem("set eg_wz_dim_LED_Sw on")}

})
DOELSE
Ich bekomme die Fehlermeldung
Ambienteautomatik: {    use Math::Round qw/round/;;    my $tlw=Value("DevDummy");;    #my $tlw=ReadingsVal("myTL","twilight_weather",100)    $tlw=abs($tlw-50);;    $tlw=Math::Round::round($tlw);;    my $proz=$tlw*2.5;;    if($proz<100){fhem("set eg_wz_dim_LED_Sw $proz")}       else{fhem("set eg_wz_dim_LED_Sw on")}     }: Missing right curly or square bracket at (eval 159561) line 1, at end of line
syntax error at (eval 159561) line 1, at EOF

Selbst wenn ich alle Berechnungslogik in der DOIF rausnehme und nur den Rumpf stehen lasse:

Code Auswählen Erweitern

([15:00-23:00] and [DevDummy] <70 and [DevDummy] >=30 and [eg_wz_dim_LED_Sw] ne "on")({
})DOELSE
Bekomm ich eine Fehlermeldung... es liegt also irgendwie daran, wie ich die Bedingungen abfrage.
DevDummy ist ein Werte-Dummy, mit dem ich das twilight_weather simulieren möchte, eigentlich soll da [myTL:twilight_weather] stehen.

Ihr könnt das vielleicht sofort sehen, ich stehe total aufm Schlauch... danke für eure Hilfe!

[Ellert]

Mit

Code Auswählen Erweitern

([1])({
})DOELSE
gibt es keine Fehlermeldung ist ein Modul aktuell?
Ggf. die Funktion in die myUtils verlegen.

[AndyMu]

Komisch, mein Zielcode

Code Auswählen Erweitern

([15:00-23:00] and [myTL:twilight_weather] <70 and [myTL:twilight_weather] >=30 and [eg_wz_dim_LED_Sw] ne "on")({
use Math::Round qw/round/;;
my $tlw=ReadingsVal("myTL","twilight_weather",100);;
$tlw=abs($tlw-70);;
$tlw=Math::Round::round($tlw);;
my $proz=$tlw*2.5;;
if($proz<100){fhem("set eg_wz_dim_LED_Sw $proz")}
else{fhem("set eg_wz_dim_LED_Sw on")}
})DOELSE
scheint es jetzt so zu tun, wie ich es gedacht hatte... was ist anders?

[AndyMu]

Sehr interessant... der Code oben funzt.
Aber wenn ich die Zeile

Code Auswählen Erweitern

my $tlw=ReadingsVal("myTL","twilight_weather",100);;
dopple und sie auskommentiert dazu einfüge:

Code Auswählen Erweitern

#my $tlw=ReadingsVal("myTL","twilight_weather",100);;
bekomme ich die "missing curly..." Fehlermeldung.

Funktioniert:

Code Auswählen Erweitern

([15:00-23:00] and [myTL:twilight_weather] <70 and [myTL:twilight_weather] >=0 and [eg_wz_dim_LED_Sw] ne "on")({
use Math::Round qw/round/;;
my $tlw=ReadingsVal("myTL","twilight_weather",100);;
$tlw=abs($tlw-70);;
$tlw=Math::Round::round($tlw);;
my $proz=$tlw*2.5;;
if($proz<100){fhem("set eg_wz_dim_LED_Sw $proz")}
else{fhem("set eg_wz_dim_LED_Sw on")}
})DOELSE
Funktioniert nicht:

Code Auswählen Erweitern

([15:00-23:00] and [myTL:twilight_weather] <70 and [myTL:twilight_weather] >=0 and [eg_wz_dim_LED_Sw] ne "on")({
use Math::Round qw/round/;;
my $tlw=ReadingsVal("myTL","twilight_weather",100);;
        #my $tlw=ReadingsVal("myTL","twilight_weather",100);;
$tlw=abs($tlw-70);;
$tlw=Math::Round::round($tlw);;
my $proz=$tlw*2.5;;
if($proz<100){fhem("set eg_wz_dim_LED_Sw $proz")}
else{fhem("set eg_wz_dim_LED_Sw on")}
})DOELSE
Ist denn das "#" kein Zeichen fürs Auskommentieren?