Variablen werden nicht gesetzt (Allgemeines zu Perl)

[thread]19918[/thread]

Variablen werden nicht gesetzt

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+5 replies
raspklaus

2015-12-08 20:08
User since
2015-10-26
5 Artikel
BenutzerIn
Hallo zusammen,

ich habe eine sub, die Variablen setzen soll es aber nicht tut.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

RemovalCheck exec { my $RemovalBlack = "off";; my $RemovalBrown = "off";; my $RemovalBlue = "off";; my $RemovalYellow = "off";; my $rcal= fhem("get Abfall text all 4");; my @events = split ("\n", $rcal);; my $tomorrow = strftime "%%d.%%m.%%y", localtime(time + 86400);; foreach my $event (@events) { my @values = split(" ", $event);; if ($values[0] eq $tomorrow) { if ($values[3] eq "Restmüll") {$RemovalBlack = "on"} elsif ($values[3] eq "Biomüllabfuhr") {$RemovalBrown = "on"} elsif ($values[3] eq "Papiertonne") {$RemovalBlue = "on"} elsif ($values[3] eq "Gelber") {$RemovalYellow = "on"} } } fhem("set RemovalBlack $RemovalBlack");; fhem("set RemovalBrown $RemovalBrown");; fhem("set RemovalBlue $RemovalBlue");; fhem("set RemovalYellow $RemovalYellow");; return;; }
Mit dem
Code: (dl )

get Abfall text all 4
liest er folgendes ein:
Code: (dl )

1 2 3 4

09.12.15 06:00 Abfuhrtermin Restmüll am 09.12.2015 10.12.15 06:00 Abfuhrtermin Gelber Sack am 10.12.2015 11.12.15 06:00 Abfuhrtermin Biomüllabfuhr am 11.12.2015 12.12.15 06:00 Abfuhrtermin Restmüll am 12.12.2015
Aber es wird dann anscheinend die Schleife nicht durchlaufen, denn die Variablen bleiben auf off

Kann mir da jemend helfen ?
- +4 replies
- Linuxer
  
  2015-12-08 20:34
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Wenn die Aktionen der for-Schleife nicht ausgeführt werden, könnte es daran liegen, dass @events leer ist.
  Oder Deine enthaltenen if-Bedingungen finden keine Wahrheiten und die entsprechenden Blöcke werden nicht ausgeführt.
  
  Da du auch Umlaute verwendest, kann auch eine nicht übereinstimmende Zeichenkodierung zwischen Daten und Skript Ursache sein, dass keine Übereinstimmungen gefunden werden.
  
  Prüfe also, welche Werte in Deinen Variablen stecken und schaue, ob sie dem Erwarteten entsprechen.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - raspklaus
    
    2015-12-08 21:27
    User since
    2015-10-26
    5 Artikel
    BenutzerIn
    
    Wie kann ich das direkt überprüfen ?
    
    Die eigentliche Funktion ist ja:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
    
    my $RemovalBlack = "off";; my $RemovalBrown = "off";; my $RemovalBlue = "off";; my $RemovalYellow = "off";; my $rcal= fhem("get Abfall text all 4");; my @events = split ("\n", $rcal);; my $tomorrow = strftime "%%d.%%m.%%y", localtime(time + 86400);; foreach my $event (@events) { my @values = split(" ", $event);; if ($values[0] eq $tomorrow) { if ($values[3] eq "Restmüll") {$RemovalBlack = "on"} elsif ($values[3] eq "Biomüllabfuhr") {$RemovalBrown = "on"} elsif ($values[3] eq "Papiertonne") {$RemovalBlue = "on"} elsif ($values[3] eq "Gelber") {$RemovalYellow = "on"} } } fhem("set RemovalBlack $RemovalBlack");; fhem("set RemovalBrown $RemovalBrown");; fhem("set RemovalBlue $RemovalBlue");; fhem("set RemovalYellow $RemovalYellow");; return;;
    
    Ich bin blutiger Perlneuling und benötige ein bisschen Nachhilfe!!!!!!
    
    my $rcal sollte wahrscheinlich enthalten
    
    Code: (dl )
    
    09.12.15 06:00 Abfuhrtermin Restmüll am 09.12.2015 /n10.12.15 06:00 Abfuhrtermin Gelber Sack am 10.12.2015 /n11.12.15 06:00 Abfuhrtermin Biomüllabfuhr am 11.12.2015 /n12.12.15 06:00 Abfuhrtermin Restmüll am 12.12.2015
    
    Gedacht ist folgende Funktion:
    
    Ich lege meine 4 Abfuhren an und initialisiere sie als nicht relevant für morgen (off). Dann schaue ich in den Kalender und hole mir die nächsten 4 Einträge.
    Diese kommen zumindest mit dieser Einstellung in einer Zeichenkette zurück, die allerdings aus mehreren Zeilen bestehen kann die durch einen Zeilenumbruch getrennt sind.
    Die zerteile ich am Zeilenumbruch und speichere das Ergebnis in einem Array. Mit einem Einzeiler wird das Datum des morgigen Tags berechnet.
    Jetzt schaue ich, ob es einen Eintrag für eine Abfuhr mit dem Datum von morgen gibt. Falls ja, setze ich die entsprechende Variable (on).
    Dieses notify wird dann 1x in der Nacht ausgeführt und schreibt mir das Ergebnis der Abfuhr für Morgen in den Dummy.
    Last edited: 2015-12-08 21:33:07 +0100 (CET)
    - Linuxer
      
      2015-12-08 22:36
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Quote
      Wie kann ich das direkt überprüfen ?
      
      Am simpelsten geht das, indem Du print()-Anweisungen einbaust, um Dir den Inhalt von Variablen anzeigen zu lassen:
      
      Beispiel:
      
      Code: (dl )
      
      1 2 3 4 5
      
      my $rcal= fhem("get Abfall text all 4"); print "\$rcal: $rcal\n"; my @events = split ("\n", $rcal);; print "\@events:\n", join "\n", @events;
      
      Quote
      my $rcal sollte wahrscheinlich enthalten
      
      Sollte? Dann kontrolliere das mit der oben beschriebenen Methode.
      
      Die Ausgaben erfolgen in der Regel auf STDOUT; wenn solch ein Output in diesem Skript so nicht lesbar ist, musst Du die Ausgabe entweder auf STDERR ausgeben (z.B. print STDERR "text for stderr\n";) oder in eine Datei umleiten.
      Last edited: 2015-12-08 23:59:27 +0100 (CET)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - Linuxer
      
      2015-12-08 23:58
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Leider postest Du nur Fragmente, die erstmal nicht alleine lauffähig sind.
      
      Ich habe das mal etwas ergänzt und Deinen Code ausprobiert. Daraus resultiert:
      
      * Warum beendest Du jedes Kommando mit einem Doppel-Semikolon? Für Perl reicht eines. (Was aber nun kein Fehler ist, sondern nur seltsam erscheint)
      * Dein strftime ist falsch. So landet jedenfalls nicht das morgige Datum in $tomorrow. Schau Dir Deinen Formatstring nochmal genau an. Warum verwendest Du %%? (Dies ist meiner Meinung nach ein Fehler.)
      
      Auffallen sollte das, wenn Du innerhalb der for-Schleife nach dem split() $values[0] und $tomorrow ausgeben lässt.
      
      (Hier mit warn() anstatt mit print(), um die Ausgabe auf STDERR zu geben; sprintf() zum "schöneren" Formatieren der Ausgabe.
      
      Code (perl): (dl )
      
      1 2
      
      warn sprintf "(D) values[0]: %s\n", $values[0]; warn sprintf "(D) tomorrow: %s\n", $tomorrow;
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2015-12-08 20:08.