MAX Modul ohne Smartmatch Operator für ältere Perl Versionen ?

[tybytyby]

Hallo zusammen,

im MAX Modul (10_MAX.pm) wird der Smartmatch-Operator ('~~') verwendet, der erst ab Perl v5.10.1 zur Verfügung steht (s. http://perldoc.perl.org/perlop.html#Smartmatch-Operator ). Kleinere Geräte (NAS) haben heufig leider nur Perl v5.8.
Hat jemand eine Idee, wie man den Smartmatch Operator ersetzen könnte, damit das Modul auch mit älteren Perl Versionen kompatibel bleibt?

Ansonsten würde so etwas im Code bei der Fehlersuche vielleicht helfen:

Code Auswählen Erweitern

use v5.10.1;

Danke,
Tibi

[Matthias Gehre]

Ich weiß zwar keinen Ersatz, aber ich habe jetzt use v5.10.1; eingebaut. Danke dafür!

[tybytyby]

Ich habe einige Zeit mit Aktualisierung von Perl verbracht und das ist leider keine Option für mich, ich muss bei v5.8.8 bleiben.   Deshalb nochmal ein Eintrag in diesem Thread... 

Ich habe mir die MAX-Module angeschaut. Oft wird der Smartmatch-Operator verwendet, um zu prüfen, ob ein Element in einem Array vorkommt.
Ich glaube, man könnte statt

Code Auswählen Erweitern

if ($value ~~ @array) {... }
auch

Code Auswählen Erweitern

if ( grep( /^$value$/, @array ) ) { ... }
nutzen.

Dann würde z.B:

Code Auswählen Erweitern

$devicetype = "WallMountedThermostat" if($msgtype ~~ ["WallThermostatConfig","WallThermostatState","WallThermostatControl"]);
so aussehen:

Code Auswählen Erweitern

$devicetype = "WallMountedThermostat" if( grep ( /^$msgtype$/, ["WallThermostatConfig","WallThermostatState","WallThermostatControl"]) );

So blieben nur noch paar ähnliche Zeilen mit Smartmatch:

Code Auswählen Erweitern

validGroupid { return $_[0] ~~ /^\d+$/ && $_[0] >= 0 && $_[0] <= 255; }

Aber ich verstehe leider nicht ganz, was

Code Auswählen Erweitern

$_[0] ~~ /^\d+$/
so macht (und wo der Unterschied zu '=~' ist).

Gruß,
Tibi

[Matthias Gehre]

Ich werde die Smartmatch Operatoren nicht durch kompliziertere Konstrukte ersetzen. Die Statistik zeigt, dass überwiegend neuere Perl Versionen eingesetzt werden.

Ich lasse aber dieses Thema offen, damit Leute die wirklich kein neueres Perl kriegen, sich hier über die
jeweils privat vorzunehmenden Änderungen unterhalten können.

[tybytyby]

Das ist in Ordnung so.

Trotzdem würde eine Antwort noch weiterhelfen: wo ist der Unterschied zu '=~' ?

Code Auswählen Erweitern

$_[0] ~~ /^\d+$/

Danke!

[Matthias Gehre]

Da sich herausgestellt hat, dass Smartmatch nicht nur in alten Perl Versionen nicht funktioniert, sondern auch in kommenden Perl Versionen nicht funktionieren wird, habe ich es doch rausgenommen.

[Tobias]

Hi Matthias,

Da sich herausgestellt hat, dass Smartmatch nicht nur in alten Perl Versionen nicht funktioniert, sondern auch in kommenden Perl Versionen nicht funktionieren wird, habe ich es doch rausgenommen.

das wusste ich auch nicht... wo kann man das denn nachlesen?
Ich habe es auch bei vielen Perl-Konstrukten eingebaut...

[Matthias Gehre]

Hier http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.html ist eine Zusammenfassung. Das steht wohl auch im Changelog von perl 5.18.

[tybytyby]

Hallo Matthias,

Da sich herausgestellt hat, dass Smartmatch nicht nur in alten Perl Versionen nicht funktioniert, sondern auch in kommenden Perl Versionen nicht funktionieren wird, habe ich es doch rausgenommen.

Ich kam erst jetzt dazu, ein fhem-Update durchzuführen und die neue Version der Module mit Perl v5.8 auszuprobieren. Mein FHEM kann wieder alles empfangen.  Senden konnte ich noch nicht ausprobieren, ich muss die Heizkörperthermostate erstmal wieder installieren.
Das hier kann dann ja wieder weg:

Code Auswählen Erweitern

use v5.10.1;

Danke,
Tibi