Perl: Bareword - Fehlermeldungen

[Peedy]

Hallo Leute!

Ich habe jetzt eine Weile fhem ruhen lassen, bis ich endlich von meiner FritzBox auf eine stabilere Plattform (WandBoard quad) umziehen konnte. Die Box hatte immer wieder das Stick-FS geschrottet.

Nun hab ich ein Problem:

folgender Code ...

Code Auswählen Erweitern


26 package main;
27 use strict;
28 use warnings;
29 use POSIX;
30 use feature qw(say switch);
31
32  
33 sub
34 fhtCtrlUtils_Initialize($$)
35 {
36   my ($hash) = @_;
37 }
38
39 sub ctrl_fhts($) {
40 #  use v5.14;  
41   given ($@_) {
42     my @@fhts=devspec2array("TYPE=FHT");
43     when("Tag") {
44 ... und so weiter ...


liefert die Fehlermeldung:

Starting fhem
given is experimental at ./FHEM/99_fhtCtrlUtils.pm line 41, <$fh> line 3.
Bareword found where operator expected at ./FHEM/99_fhtCtrlUtils.pm line 41, near "$@_"
   (Missing operator before _?)
Bareword found where operator expected at ./FHEM/99_fhtCtrlUtils.pm line 42, near "@@fhts"
   (Missing operator before fhts?)

... und noch viel mehr Fehlermeldungen ...

Auf dem WandBoard ist Perl 5.18.1 installiert.
Wie Ihr seht, habe ich mit "Use [version]" auch keinen Erfolg gehabt

Bitte helft mir!


Biss denne ... Peedy

[Peedy]

"@" statt "@@" in Perl-Routinen ...

Thread: SOLVED / CLOSED


Bis denne ... Peedy