Bareword Problem (Allgemeines zu Perl)

[thread]19984[/thread]

Bareword Problem

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+2 replies

raspklaus

2016-02-14 11:16

User since
2015-10-26
5 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich verwende folgende Funktion um eingelesene Strings auszuwerten:

Code: (dl )

RemovalCheck {
my $RemovalBlack = "off";
my $RemovalBrown = "off";
my $RemovalBlue = "off";
my $RemovalYellow = "off";
my $RemovalToxic = "off";
my $RemovalPaper = "off";
my $RemovalGreen = "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"}
  elsif ($values[3] eq "Schadstoffsammlung") {$RemovalToxic = "on"}
  elsif ($values[3] eq "Papiersammlung") {$RemovalPaper = "on"}
  elsif ($values[3] eq "Grünabfallsammlung") {$RemovalGreen = "on"}
 }
}
fhem("set RemovalBlack $RemovalBlack");
fhem("set RemovalBrown $RemovalBrown");
fhem("set RemovalBlue $RemovalBlue");
fhem("set RemovalYellow $RemovalYellow");
fhem("set RemovalToxic $RemovalToxic");
fhem("set RemovalPaper $RemovalPaper");
fhem("set RemovalGreen $RemovalGreen");
return;
}

Mit get Abfall text next 4 werden auch die benötigten Strings richtig eingelesen:

Code: (dl )

15.02.16 06:00 Abfuhrtermin Biomüllabfuhr am 15.02.2016 
22.02.16 06:00 Abfuhrtermin Restmüll am 22.02.2016 
23.02.16 06:00 Abfuhrtermin Papiertonne am 23.02.2016 
29.02.16 06:00 Abfuhrtermin Biomüllabfuhr am 29.02.2016

Doch bei der Auswertung bekomme ich folgende Fehler:

Code: (dl )

2016.02.14 10:14:50 3: RemovalCheck return value: No such class RemovalCheckevents at (eval 29356) line 11, near ";
my RemovalCheckevents"
syntax error at (eval 29356) line 11, near "my RemovalCheckevents ="
No such class RemovalCheckvalues at (eval 29356) line 16, near "{
 my RemovalCheckvalues"
syntax error at (eval 29356) line 16, near "my RemovalCheckvalues ="
Global symbol "@values" requires explicit package name at (eval 29356) line 18.
Global symbol "@values" requires explicit package name at (eval 29356) line 20.
Global symbol "@values" requires explicit package name at (eval 29356) line 21.
Global symbol "@values" requires explicit package name at (eval 29356) line 22.
Global symbol "@values" requires explicit package name at (eval 29356) line 23.
Global symbol "@values" requires explicit package name at (eval 29356) line 24.
Global symbol "@values" requires explicit package name at (eval 29356) line 25.
Global symbol "@values" requires explicit package name at (eval 29356) line 26.
Bareword "RemovalCheckevents" not allowed while "strict subs" in use at (eval 29356) line 14.

Wie kann ich das bereinigen. Habe den Code übernommen und bin blutiger Anfänger. Bitte Euch um Hilfe

Linuxer

2016-02-14 11:40
User since
2006-01-27
3890 Artikel
HausmeisterIn
Du hast irgendwo einen Syntax-Fehler:

syntax error at (eval 29356) line 11, near "my RemovalCheckevents ="

Die gezeigte Funktion scheint syntaktisch in Ordnung zu sein. Schau in der Gegend der genannten Zeile nach, was da nicht stimmen könnte. Kontrolliere, dass jedes Kommando korrekt mit Semikolon beendet ist und dass jedes " oder ' auch korrekt "geschlossen" wird. Das dürfte wahrscheinlich am ehesten für so einen Fehler sorgen.

Ein Editor mit aktiviertem Syntax-Highlighting kann dabei helfen, den Fehler zu finden.

Beispiel:
Code (perl): (dl )

1 2 3 4 5 6 7

#! /usr/bin/perl use strict; use warnings; use 5.12.0 my @array = ( 1,2,3 ); say join "\n", @array;
Das liefert die Meldung
Code: (dl )

1 2 3 4 5 6

syntax error at t.pl line 6, near "use 5.12.0 my " Global symbol "@array" requires explicit package name at t.pl line 6. Global symbol "@array" requires explicit package name at t.pl line 9. Execution of t.pl aborted due to compilation errors.
Und das nur, weil hinter use 5.12.0 kein Semikolon steht...

edit: Textumgestellt. Funktion scheint i.O.
Last edited: 2016-02-14 11:44:25 +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!

View all threads created 2016-02-14 11:16.