Warum erzeugt ( $5 // 3 ) ein Syntaxfehler? (Allgemeines zu Perl)

[thread]20233[/thread]

Warum erzeugt ( $5 // 3 ) ein Syntaxfehler?

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+16 replies
Gast SMarc

2017-02-05 17:45
Hallo,

ich bin noch Anfänger in Perl, bitte habt Nachsicht :-)

Ich dachte, "$x // $y" bedeutet das gleiche wie "defined $x ? $x : $y".
Und ich dachte, das könnte ich nach einer RegExp auch mit $1, $2 ... etc. formulieren.

Aber im folgenden Quelltext (ein Auszug) bekomme ich einen Syntaxfehler in der Switch-Anweisung der 2. Funktion, wenn ich in der ersten Funktion den Ausdruck "($5 // 3)" verwende. Schreibe ich stattdessen "defined $5 ? $5 :3", dann gibt es keinen Fehler.

Könnt Ihr mir das erklären?

Ich nutze perl 5.24.0 unter Win10 und perl 5.10.1 unter Linux/Debian.

Danke,
Marc
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42

package main; use strict; use warnings; use POSIX qw(strftime floor); use Scalar::Util qw(looks_like_number); use Switch; sub MyFhem($) { my ($cmd) = @_; if ( $cmd =~ /([-_\w]+):([-_\w]+):([-_\w]+)(:([-_\w]+))?/ ) { $cmd = "set $1 $2 $3"; my $check = { dev => $1, reading => $2, level => $3, retry => 0 }; smInternalTimer( "c_".$1."_".$2, time+( $5 // 3 )*60, "CheckActionDone", $check, 1 ); } fhem($cmd); } my ( $notifytable_sec, $notifytable_min, $notifytable_hour, $notifytable_mday, $notifytable_mon, $notifytable_year, $notifytable_wday, $notifytable_yday, $notifytable_isdst); sub MyReadingsVal($$$) { my ($dev, $rdg, $def) = @_; my $r=''; if ( $dev eq "TIME" ) { switch ($rdg) { case 'hour' { $r = $notifytable_hour } case 'hfhour' { $r = $notifytable_hour << 1 + ( $notifytable_min > 29 ? 1 : 0 ) } case 'qhour' { $r = $notifytable_hour << 2 + floor( $notifytable_min/15 ) } case 'minute' { $r = $notifytable_min } case 0 { $r = $notifytable_min } else { $r = undef } } } else { $r = ReadingsVal( $dev, $rdg, $def ); } return $r; }
Last edited: 2017-02-05 19:50:07 +0100 (CET)
- +9 replies
- betterworld
  
  2017-02-05 20:52
  
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  
  Ich glaube dein Problem ist das Switch-Modul. Versuch mal, ohne das Modul auszukommen.
  
  Dieses Modul funktioniert so, dass es den Code mit irgendwelchen regulären Ausdrücken umformatiert, und es ist berüchtigt dafür, dass dabei gerne mal etwas schief geht. Insbesondere bei so einem Konstrukt wie "//", weil Switch älter ist als "//" und daher nicht so etwas erwartet.
  
  Genauso verrufen wie das Switch-Modul sind übrigens die Funktionsprototypen, also ($). Als Neuling solltest du sie so lange nicht einsetzen, bis du irgendwann weißt, was genau sie tun und dass du genau das brauchst (und das ist in der Regel selten).
  
  [Update]: Falls du auf der Suche nach Alternativen zu Switch zufällig auf given/when kommst: Soweit ich weiß, ist given/when in aktuellen Perl-5-Versionen als experimentell eingestuft. Daher wird es für deinen Fall wahrscheinlich das einfachste sein, wenn du ganz einfach mit if-elsif-elsif-else arbeitest.
  Last edited: 2017-02-05 20:58:46 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +8 replies
  - Gast wer
    
    2017-02-06 01:17
    Switch ist ein Source-Parser. Das kann zu Problemen führen, Wie hier zu sehen. Wahrscheinlich "//" wird nicht als "Vergleichsbefehl" erkannt sondern als Regex. Was dann zu Problemen führen kann.
    
    Ich würde das "switch" so machen:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    my $r = undef; my %codes = ( hour => sub{ $r = $notifytable_hour }, hfhour => sub{ $r = $notifytable_hour << 1 + ( $notifytable_min > 29 ? 1 : 0 ) }, qhour => sub{ $r = $notifytable_hour << 2 + floor( $notifytable_min/15 ) }, minute => sub{ $r = $notifytable_min }, 0 => sub{ $r = $notifytable_min }, ); $codes->{$rdg}->() if($codes->{$rdg}) ;
    
    Last edited: 2017-02-06 09:25:15 +0100 (CET)
    - +3 replies
    - Muffi
      
      2017-02-06 12:58
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      ~~Kleine Anmerkung: Der else-Fall würde zu einem Fehler führen.~~
      Last edited: 2017-02-06 14:25:52 +0100 (CET)
      1 + 1 = 10
      - +2 replies
      - Gast wer
        
        2017-02-06 13:55
        
        warum?
        
        bei einem else wird undef zurück gegeben.
        genau so wie im orignalcode
        Last edited: 2017-02-06 14:01:25 +0100 (CET)
        
        Muffi
        
        2017-02-06 14:26
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Klar, ich hab das if hinten übersehn
        1 + 1 = 10
    - lichtkind
      
      2017-02-06 14:02
      
      User since
      2004-03-22
      5679 Artikel
      ModeratorIn + EditorIn
      
      source filter bitte
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
    - +2 replies
    - hlubenow
      
      2017-02-06 22:05
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Warum nicht:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      my $r = undef; my %codes = ( 'hour' => $notifytable_hour, 'hfhour' => $notifytable_hour << 1 + ( $notifytable_min > 29 ? 1 : 0 ), 'qhour' => $notifytable_hour << 2 + floor( $notifytable_min / 15 ), 'minute' => $notifytable_min, 0 => $notifytable_min ); if ( exists($codes{$rdg}) ) { $r = $codes{rdg}; }
      
      Das mit dem ? finde ich auch nicht gut, würde ich mit if ... ausschreiben.
      Last edited: 2017-02-06 22:18:24 +0100 (CET)
      - Gast wer
        
        2017-02-06 23:18
        
        Aus meiner Sicht:
        
        Alle Werte werden schon ausgerechnet, das ist Verschwendung von Rechenzeit. Das mag hier nicht viel ausmachen, kann aber ganz ordentlich Zeit kosten bei anderen Aktionen.
        
        Die Erweiterbarkeit ist beschränkt. Sollen andere Aktionen als Werte Brechung gemacht werden, wird das mit einem Code kompliziert siehe dazu deine Anmerkung mit dem "if".
        
        Aber generell kann man das auch so machen.
        Last edited: 2017-02-07 00:41:36 +0100 (CET)
    - betterworld
      
      2017-02-07 18:22
      
      User since
      2003-08-21
      2613 Artikel
      ModeratorIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub MyReadingsVal { my ($dev, $rdg, $def) = @_; if ( $dev eq "TIME" ) { $rdg eq 'hour' and return $notifytable_hour; $rdg eq 'hfhour' and return $notifytable_hour << 1 + ( $notifytable_min > 29 ? 1 : 0 ); $rdg eq 'qhour' and return $notifytable_hour << 2 + floor( $notifytable_min/15 ); $rdg eq 'minute' and return $notifytable_min; $rdg eq 0 and return $notifytable_min; return undef; } else { return ReadingsVal( $dev, $rdg, $def ); } }
      
      Das wäre jetzt mal eine einfache Lösung. Klar, die Wiederholung der Variable ist irgendwie unschön, aber dafür ist der Code imho lesbarer geworden. "KISS".
      Lieblingsmodule: IPC::System::Simple, Path::Class
- +5 replies
- rosti
  
  2017-02-07 07:01
  
  User since
  2011-03-19
  3193 Artikel
  BenutzerIn
  
  Ich finde den Code gruselig und absolut unverständlich, kannst Du mal mit einfachen Worten beschreiben, was das Ziel ist?
  
  Da gibt es bestimmt eine schönere Lösung, davon bin ich überzeugt. Vor allem teamfähiger, wartungsfreundlicher und von der Perl-Version unabhängiger.
  
  Viele Grüße.
  - +4 replies
  - Gast SMarc
    
    2017-02-11 19:57
    
    Vielen Dank für alle Tipps und Anregungen!
    
    Wie gesagt bin ich neu in der PERL-Welt, die sich IMHO schon ziemlich deutlich von anderen Sprachen abhebt...
    Eigentlich wollte ich auch nie was mit PERL zu tun haben, bin aber vor einiger zeit auf das FHEM-Projekt gestoßen, das kurz gesagt ein OpenSource SmartHome Projekt ist, das wirklich sehr viele "Geräte" sehr einfach unterstützt. Und mit etwas gutem Willen lassen sich dann auch relativ einfach ziemlich coole Sachen umsetzen, mein Post war eben ein Teil einer meiner Erweiterungen davon.
    
    Bitte erlaubt mir folgende Nachfragen zu Euren Posts:
    
    @betterworld: Was ist denn das Problem mit "Funktionsprototypen"? In der "FHEM"-Welt sind alle Quelltexte so geschrieben und ich dachte, dass muss in PERL so sein :-) Hättet Du einen Link für mich, der das Problem etwas erläutert?
    Dein Post "2017-02-07 18:22" sieht für mich irgendwie sehr Shell-mäßig aus und das finde ich sehr elegant... Und da das alles auf einem Pi laufen soll, der auch sehr viele andere Aufgaben hat, mache ich mir wie "Gast wer" auch Gedanken um die Effizienz der anderen Vorschläge...
    
    @Muffi: Ich habe irgendwie nicht mitbekommen, was "1+1=10" bedeuten soll :-)
    
    @rosti: Wie gesagt komme ich aus einer anderen Ecke und bin für jede Anregung dankbar. Leider kann ich nicht einschätzen, was den Code z.B. Perl-Version abhängig macht. Eine Erklärung, was es tun soll, ist aber ebenfalls schwierig, da es ein Teil einer meiner Erweiterungen für das sehr umfangreiche FHEM-Projekt ist... Was findest Du denn z.B. gruselig?
    
    Nochmal vielen Dank, Ihr habt mir schon geholfen!
    Last edited: 2017-02-11 20:09:16 +0100 (CET)
    - Gast wer
      
      2017-02-11 21:06
      
      Guest SMarc
      @rosti: Wie gesagt komme ich aus einer anderen Ecke und bin für jede Anregung dankbar. Leider kann ich nicht einschätzen, was den Code z.B. Perl-Version abhängig macht. Eine Erklärung, was es tun soll, ist aber ebenfalls schwierig, da es ein Teil einer meiner Erweiterungen für das sehr umfangreiche FHEM-Projekt ist... Was findest Du denn z.B. gruselig?
      
      Mach dir nichts daraus. Er findet alles "gruselig" was nicht 100% seinem Coding-Style folgt.
      
      Guest SMarc
      Was ist denn das Problem mit "Funktionsprototypen"
      
      Grundsätzlich nichts sofern man die Einschränkungen kennt. So werden z.B. bei Objekten/Klassen Prototypen ignoriert. Es gibt noch andere Szenarien in denen Prototypen nicht greifen.
      Nicht so toll für die Wartung ist z.B. auch das du alle Funktionen in das default-Packet "main" packst. Aber das hängt davon ab wie das "FHEM"-"System" damit umgeht.
      Es ist also nicht falsch das du dich erstmal an den "FHEM"-Style hältst. Bedenke aber das das nicht unbedingt der Weisheit letzter Schluss ist.
      
      Wenn dir ein Code besser gefällt als der andere ist das nicht verkehrt. Perl erlaubt viele Codingstyles. Alle gleicherweise gültig.
      Last edited: 2017-02-11 21:35:55 +0100 (CET)
    - rosti
      
      2017-02-11 22:05
      
      User since
      2011-03-19
      3193 Artikel
      BenutzerIn
      
      Das gesamte FHEM-Konzept ist vom Code her ziemlich gruselig umgesetzt. Ich hab zusammen mit 2 weiteren Kollegen viele Jahre vom Prinzip her dasselbe programmiert, nur gings darum nicht nur um eine Handvoll Haushaltsgeräte sondern um zwanzigtausend Router+Switches.
      
      Von wegen Stil ist eine persönliche Frage -- ist es eben nicht.
      
      MfG
    - betterworld
      
      2017-02-12 00:10
      
      User since
      2003-08-21
      2613 Artikel
      ModeratorIn
      
      Prototypen müssen in Perl nicht so sein. Sie sind optional. Code funktioniert ohne Prototypen auch. Das heißt nicht, dass sie letztenendens nur die Funktion eines Kommentars haben. Sie haben schon eine Bedeutung – die ist aber zum großen Teil ziemlich obskur.
      
      Direkte Probleme, die sie verursachen, wären vielleicht:
      
      - Man kann in Perl Funktionen weiter unten definieren und weiter oben benutzen – das ist ein Feature. Mit Prototypen gibt es dann aber eine unschöne Warnung.
      - Sie sind nicht kompatibel mit Signaturen. Signaturen sind ein momentan experimentelles Feature, das aber durchaus eine Zukunft haben könnte.
      
      Weitere Details hier:
      Far More than Everything You've Ever Wanted to Know about Prototypes in Perl
      
      Aber wenn dein Projekt das halt zum offiziellen Coding Style erklärt hat, dann kannst du sie schon auch benutzen. Sie werden halt im Allgemeinen nicht empfohlen.
      Last edited: 2017-02-12 00:15:25 +0100 (CET)
      Lieblingsmodule: IPC::System::Simple, Path::Class
- hlubenow
  
  2017-02-13 12:43
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Quote
  Warum erzeugt ( $5 // 3 ) ein Syntaxfehler?
  
  Und warum gibt's nur ein Rudi Völler?
  Last edited: 2017-02-13 12:44:44 +0100 (CET)

View all threads created 2017-02-05 17:45.