Perl: Bareword - Fehlermeldungen

Begonnen von Peedy, 05 Oktober 2013, 10:15:59

Vorheriges Thema - Nächstes Thema

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 ...


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:

ZitatStarting 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