Perl für Anfänger

[CoolTux]

Das "fhem ..." weist fhem.pl an, die Befehle auf eine bestimmte Art und Weise zu interpretieren (siehe Zeile 3785 dort). Das gibt es weiter an eine andere Funktion. Die macht dann wieder eine Analyse, und am Ende steht für "set"-Anweisungen?

Genau: CommandSet().

Man spart also den "Umweg".

Beim direkten Aufruf der entsprechenden Funktionen beachte man dabei das dann nur genau einen set Befehl pro Funktionsaufruf hat. FILTER und devspec2array gehen aber weiterhin. Nur die Codeanalyse bleibt aus

[Beta-User]

Beim direkten Aufruf der entsprechenden Funktionen beachte man dabei das dann nur genau einen set Befehl pro Funktionsaufruf hat. FILTER und devspec2array gehen aber weiterhin. Nur die Codeanalyse bleibt aus

Danke für die Klarstellung .

Btw.: AnalyzeCommandChain() wollte ich eigentlich für den Zwischenschritt "sleep" zur Vermeidung des "roten ?"  "aufsparen". Aber vielleicht will ja jemand schon an Teil 2 arbeiten .

[Beta-User]

Bitte löse dann noch nicht weiter auf.

Hatte ich zwischendurch mal das Signal übersehen, oder hat sich das erledigt ?

[87insane]

Bisher hat wohl keiner weiter gemacht. Hatte Prof. Dr. Peter Henning seinen Perl Teil schon gepostet? (Bzw das Buch).

Ich selber hatte in letzter zeit leider keine zeit für fhem. Aber das wetter wird ja eh nicht besser und somit fällt die arbeit im Garten zum Glück flach [emoji28]

Was ist mit den anderen hier? Keine Lust oder eine Idee?

Gesendet von meinem LG-H850 mit Tapatalk

[Beta-User]

Ich selber hatte in letzter zeit leider keine zeit für fhem. Aber das wetter wird ja eh nicht besser und somit fällt die arbeit im Garten zum Glück flach (https://emoji.tapatalk-cdn.com/emoji28.png)

Was ist mit den anderen hier? Keine Lust oder eine Idee?

Ist vermutlich doch schlicht uninteressant... oder zu einfach.

Würde mal hier aufsetzen und diese Punkte einschließlich des Ausblicks abarbeiten:

Damit hätten wir den ersten Punkt auf der Liste erledigt:
Das nächste wäre also, die Zeitdauer optional zu machen, also: kann angegeben werden, muß aber nicht. Wird sie nicht angegeben, soll nach einer Stunde und einer Sekunde abgeschaltet werden.
Ausblick:
- Zu Schritt 3 würde ich noch eine Zwischenstufe einbauen wollen: FHEM-sleep (im Unterschied zu Perl-sleep).

Code Auswählen Erweitern

sub
mySwitchOffAfter($;$) {
  my ($ondevice,$duration) = @_;
  #Alternative writing (will modify @_):
  #my $ondevice = shift(@_);
  #my $duration = shift(@_);

  #can also be written as: $duration = "01:00:01" if !defined $duration;
  $duration = "01:00:01" unless defined $duration;
  #further possible notation:  $duration = $duration//"01:00:01";

  #gleichbedeutend mit 'fhem "defmod my_switchoff_$ondevice at +$duration set $ondevice off"'
  #CommandDefMod(undef,"my_switchoff_$ondevice at +$duration set $ondevice off");
 
  #sleep-Variante per fhem-Aufruf (Achtung: Überlebt FHEM-Neustart nicht!):
  my $idname = "my_switchoff_".$ondevice;
  #fhem "sleep $duration $idname quiet;set $ondevice off";
  AnalyzeCommandChain(undef,"sleep $duration $idname quiet;set $ondevice off");
}
Ich hoffe, anhand der obigen Kommentare kann man ganz gut nachvollziehen, wie die einzelnen Schritte aufeinander aufbauen, und auch, wo der Unterschied zwischen dem at und dem sleep liegt.

Laßt mich wissen, ob noch Interesse an dem Thema "erkenne einen laufenden SetExtensions-Timer und mache dann nichts" besteht, ansonsten lasse ich das erst mal auf sich beruhen.

Grüße, Beta-User

[Tommy82]

Hmmm.

Das "Lernen von Perl" und das "Lösen von Perl-Problemen" sind zwei ganz unterschiedliche Dinge.

Ersteres lässt sich mit ein paar Seiten Text und grundlegenden Programmierkenntnissen schnell erledigen. Dafür stelle ich gerne das Perl-Kapitel aus dem "Handbuch Programmiersprachen" (erschienen 2006, ich bin einer der Herausgeber) hier kostenlos zur Verfügung (stammt auch direkt von mir).

Ersteres lässt sich nicht gut erledigen, wenn keinerlei Programmierkenntnisse vorhanden sind. Dafür ist Perl, vorsichtig gesagt, nicht gut geeignet.


Und das zweite, nämlich das Lösen von Perl-Problemen, lässt sich eben nicht generalisieren und mit einer größeren Gruppe gleichzeitig behandeln.

LG

pah

Hallo Pah, würdet du deinen Teil zu Perl noch zurverfügung stellen?

Danke

[87insane]

Wäre echt super!

Gesendet von meinem LG-H850 mit Tapatalk

[Prof. Dr. Peter Henning]

OK, hier ein Auszug aus dem Handbuch Programmiersprachen. Den Teil über Perl/Tk kann man ignorieren.

LG

pah

[rischbiter123]

Moin,

vielen Dank.

LG

Andreas

[mi.ke]

@pah

Vielen Dank

mi.ke

[Prof. Dr. Peter Henning]

Müsste man eigentlich im Kontext lesen - wir haben darin 26 Sprachen in gleicher Weise behandelt, inklusive Zusammenhänge und generelle Programmierhinweise.

Im Handbuch etwas ausführlicher, als im Taschenbuch. Sind beide nicht mehr im Druck erhältlich, leider - und es fehlt auch die Zeit, das alles zu überarbeiten.

Einzelne Teile kann ich elektronisch zur Verfügung stellen, hier z.B. noch Glossar und Einführung.

LG

pah

[Tommy82]

Super vielen Dank Pah

[87insane]

Mega dank!

Gesendet von meinem LG-H850 mit Tapatalk

[Prof. Dr. Peter Henning]

OK, nachdem ich gefragt worden bin: Ich stelle hiermit auch das JavaScript-Kapitel zur Verfügung. Die Einzeldateien lösche ich, es gibt nur noch ein File - mit der allgemeinen Einführung, dann JavaScript, dann Perl, dann das Glossar. Verwendung und Weitergabe nur mit der Titelseite.

LG

pah

[Deckoffizier]

Vielen Dank für den Lernstoff!!

Gruß
Hans-Jürgen