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;
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:
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
- ich hoffe nicht, dass Du tatsächlich die systemeigene 99_Utils.pm überschrieben hast
- in Deiner Datei fehlt am Ende die Zeile "1;"