Problem mit Perl Übung

[joachimm]

Hallo,

mein System lief bis jetzt ohne groß Perl einzusetzen. Ich konnte es bis jetzt immer irgendwo abschauen. Nun muss ich aber doch einiges machen...

Ich habe ein einfache Subroutine in 99_Utils.pm eingetragen:

package main;

Code Auswählen Erweitern

use strict;
use warnings;
use POSIX;

sub
Utils_Initialize($$)
{
  my ($hash) = @_;
}

sub
CounterAll($$$)
{
my ($device, $counterA, $counterB) = @_;
my $valueA = fhem ("get ".$device." ".$counterA);
my $valueB = fhem ("get ".$device." ".$counterB);
my $valueAll = $valueA + $valueB;
return $valueAll;
}



und bekomme beim Aufruf der Funkion immer einen Fehler:

Code Auswählen Erweitern

fhem> reload 99_Utils.pm
fhem> {CounterAll("DS2423_A2D987000002","counters.A","counters.B")}
Undefined subroutine &main::CounterAll called at (eval 510) line 1.


Ich sehe den Wald vor lauter Bäumen nicht....

Danke für die Hilfe

Joachim

[betateilchen]

• ich hoffe nicht, dass Du tatsächlich die systemeigene 99_Utils.pm überschrieben hast
• in Deiner Datei fehlt am Ende die Zeile "1;"