Funktionen Auslagern -> Fehler (Bareword)

[yep_DD]

Hallo und einen guten Abend,

ich bin gerade dabei eine etwas "umfangreichere" Definition eines Notify in eine eigene Sub auszulagern. Gemäß des Tutorials benamst als "99_xxxxUtils.pm", dabei rufe ich alle Befehle des eigenen DoIfs nacheinander auf und bekomme aber folgende Fehlermeldung:

Code Auswählen Erweitern

Bareword "off" not allowed while "strict subs" in use at ./FHEM/99_miscUtils.pm line 24. Bareword "off" not allowed while "strict subs" in use at ./FHEM/99_miscUtils.pm line

Das Moduls ist gemäß des Skeleton definiert, also mit

use strict;
use warnings;
use POSIX;

Wie kann ich es richtig machen und dafür sorgen, dass FHEM das Modul an der richtigen Stelle lädt an dem die entsprechenden Variablen bereits definiert sind. So sieht das komplette Modul aus, falls es hilft die Frage zu beantworten:

##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
miscUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.
sub KinoAn() {

set RolloWohnzimmer runter;
set HUEGroup13 off;
set HUEGroup2 off;
set HUEGroup8 off;
set HUEGroup6 off;
set HUEGroup9 off;
set HUE scene mGUM-b3iewZwkj5;
if ( fhem("get AVR state") eq "absent" ){
  set HUEDevice33 on;
  set HUEDevice32 on;
  sleep 45;
  set AVR on;
} else {
  set AVR on;
  sleep 5;
  #"/opt/fhem/test.py 21890150573100A";
  set AVR scene scene1;
}
}

1;

[herrmannj]

Code Auswählen Erweitern

fhem('set RolloWohnzimmer runter');

'sleep' ist eine _ganz_ schlechte Idee ...

[t1me2die]

So sollte es funktionieren:

Code Auswählen Erweitern


##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
miscUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.
sub KinoAn() {

fhem ('set RolloWohnzimmer runter;
set HUEGroup13 off;
set HUEGroup2 off;
set HUEGroup8 off;
set HUEGroup6 off;
set HUEGroup9 off;
set HUE scene mGUM-b3iewZwkj5');
if ( fhem("get AVR state") eq "absent" ){
  fhem ('set HUEDevice33 on;
  set HUEDevice32 on;
  sleep 45;
  set AVR on');
} else {
  fhem ('set AVR on;
  sleep 5;
  #"/opt/fhem/test.py 21890150573100A";
  set AVR scene scene1');
}
}

1;


@herrmannj: Ich dachte, wenn ein 'sleep' innerhalb eines FHEM-Befehl's steht (nicht am Ende), dann wird es automatisch so wie ein "at" verarbeitet und blockiert FHEM nicht? Habe ich dort falsche Erkenntnisse? In dem o.g. Beispiel sollte also keine Blockierung von FHEM stattfinden.
Ich lasse mich aber gerne eines besseren belehren 

Gruß
Mathze

[Byte09]

edit: glöscht wegen morgentlichem unsinn
.... das passiert wenn man die augen noch nicht richtig aufbekommt, aber meint kommentieren zu müssen 

[yep_DD]

Code Auswählen Erweitern

fhem('set RolloWohnzimmer runter');

'sleep' ist eine _ganz_ schlechte Idee ...

da muss ich @t1me2die zustimmen, laut command reference (https://fhem.de/commandref_DE.html#sleep) ist sleep nur am Ende ohne weiterführenden Befehl ein Problem.

@t1me2die: Ja, das funktioniert vielen Dank. Das hatte ich nicht bedacht. Bin auch noch ganz am Anfang. Danke schön.

[herrmannj]

da muss ich @t1me2die zustimmen, laut command reference (https://fhem.de/commandref_DE.html#sleep) ist sleep nur am Ende ohne weiterführenden Befehl ein Problem.

Du hast aber ein _perl_ sleep in Deinem code, t1me2die ein fhem sleep. Gravierender Unterschied

[yep_DD]

@herrmannj, ja, aber nur weil ich nicht wusste, dass es nicht fhem syntax war (Anfänger), das was ich hatte hat ja eben genau deswegen nicht funktioniert. Ich wollte ja fhem Syntax verwenden. So wie ich das sehe ist für alle anderen die sich fragen wohl folgene Aussage besser.

Niemals ein sleep in Perl verwenden oder ein sleep in FHEM ohne nachfolgenden Befehl, korrekt?

[herrmannj]

Ja, genau so.

[yep_DD]

Super vielen Dank . Weil wir gerade dabei sind, vielleicht kann ich das sleep auch komplett entfernen. Kann ich in FHEM non-blocking ein while verwenden?  Ich schalte meine Steckdosen an und warte dann einfach bis der AVR theoretisch am Netzwerk sein müsste. Ich würde aber gern ein while AVR state ne present oder ähnliches verwenden. Geht das? Oder eher über ein Notify?

[amenomade]

Sinn von einem ereignisgesteuerten System ist tatsächlich auf Ereignisse (dann über notify oder at) zu reagieren.

while und sleep sind keine gute Ideen. Das ist prozedurale Programmierung. Ein while wird immer blockieren.

[yep_DD]

@amenomade danke, so habe ich es jetzt auch gelöst, über notifys. Dennoch ist ein sleep im fhem kontext laut Wiki und diverser andere Beiträge nicht blockierend. Im Perl Kontext hingegen schon.

[amenomade]

@amenomade danke, so habe ich es jetzt auch gelöst, über notifys. Dennoch ist ein sleep im fhem kontext laut Wiki und diverser andere Beiträge nicht blockierend. Im Perl Kontext hingegen schon.

Ja, im fhem Kontext hat es schon Sinn, wenn Du z.B. nach einem Event in einem notify 2 Befehle nicht direkt nacheinander durchführen möchtest. Einige nutzen es z.B. um nicht alle Jalousien gleichzeitig runterzufahren, wenn die alle am gleichen (schwachen) Stromkreis hängen. Solche Sachen sind OK. Aber, obwohl es funktioniert, hat es keinen Sinn ein sleep zu benutzen, um auf dem Status von einem anderen Device zu warten. Das fhem sleep ist eher ein "mach mal eine kurze Pause", und kein "warte auf etwas".

[yep_DD]

@anemonade, danke für die genaue erklärung. Denn genau so mache ich es jetzt. Ich habe ein Device was ich wirklich nur blind schalten kann leider ein Sleep brauche, weil sich noch niemand erbarmt hat ein Modul dafür zu schreiben. Für alles andere - den AVR - aus dem 1. Beitrag, habe ich es jetzt so umgebaut, dass ich über ein Notify informiert werde, wenn der AVR verfügbar ist. Ich habe somit alle -bis auf 1- Sleep entfernen können.