Datei "Zahl.txt" in Fhem bekommen

[Wuppi68]

C     c     sieht Du jetzt den Unterschied beim englischem Inhalt?

[klausmrkor]

+*00:01:00  {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => 'Zahl.txt'});

  fhem "setreading ( 'Leistung' , 'abgelesen' , @Content[0] )";
}

Und Fehlermeldung:

2017.01.13 16:53:03 1: ERROR evaluating {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => 'Zahl.txt'});

  fhem "setreading ( 'Leistung' , 'abgelesen' , @Content[0] )";
}: Global symbol "@Content" requires explicit package name at (eval 1589) line 5, <GEN8> line 5332.

2017.01.13 16:53:03 3: leistung: Global symbol "@Content" requires explicit package name at (eval 1589) line 5, <GEN8> line 5332.

Gibt es denn keine andere Möglichkeit an die Daten zu kommen?

[Wuppi68]

schreib den Content doch mit kleinem C am Anfang ...

Perl ist Case sensitive

[CoolTux]

betateilchen? Hast Du noch Popcorn?

[Wuppi68]

betateilchen? Hast Du noch Popcorn?

Wagonweise

aber ich gebe bald auf ...

auf skimmen und copy paste habe ich keine große Lust ...

Hilfe zur Selbsthilfe, das ist mein Motto

[CoolTux]

An den Threadersteller. Bitte sei so lieb und schreibe Deinen Code und Logausgaben in Codetags. So kann man das kaum lesen.

[klausmrkor]

Entschudigung, manchmal hat man Tomaten auf den Augen, ich habe einfach das "C" nicht gesehen.
Es sieht jetzt schon anderst aus.
aber

Code Auswählen Erweitern

2017.01.13 17:46:22 1: PERL WARNING: Scalar value @content[0] better written as $content[0] at (eval 1613) line 5.
2017.01.13 17:46:22 3: eval: {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => 'Zahl.txt'});

  fhem "setreading ( 'Leistung' , 'abgelesen' , @content[0] )";
}
2017.01.13 17:46:22 1: PERL WARNING: Use of uninitialized value in join or string at (eval 1613) line 5.
2017.01.13 17:46:22 3: eval: {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => 'Zahl.txt'});

  fhem "setreading ( 'Leistung' , 'abgelesen' , @content[0] )";
}
2017.01.13 17:46:22 1: devspec2array (: Unmatched ( in regex; marked by <-- HERE in m/^( <-- HERE ()$/ at fhem.pl line 1185.

2017.01.13 17:46:22 3: setreading ( 'Leistung' , 'abgelesen' ,  ) : Please define ( first
2017.01.13 17:46:22 3: leistung: Please define ( first

was soll ich denn noch definieren?

ich habe
define Leistung dummy
nur wie bekomme ich das "abgelesen" hinein?

[CoolTux]

Code Auswählen Erweitern


fhem "setreading Leistung abgelesen " . $content[0];

Versuche mal so.

[klausmrkor]

Ich habe es gemacht, aber kein Erfolg

Code Auswählen Erweitern

+*00:01:00  {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => "Zahl.txt"});

  fhem "setreading Leistung abgelesen " . $content[0];
}

Code Auswählen Erweitern

2017.01.13 19:15:23 1: PERL WARNING: Use of uninitialized value $content[0] in concatenation (.) or string at (eval 1744) line 5.
2017.01.13 19:15:23 3: eval: {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => "Zahl.txt"});

  fhem "setreading Leistung abgelesen " . $content[0];
}

2017.01.13 19:15:23 3: setreading Leistung abgelesen  : Usage: setreading <name> <reading> <value>
where <name> is a single device name, a list separated by komma (,) or a regexp. See the devspec section in the commandref.html for details.

2017.01.13 19:15:23 3: leistung: Usage: setreading <name> <reading> <value>
where <name> is a single device name, a list separated by komma (,) or a regexp. See the devspec section in the commandref.html for details.

[CoolTux]

Suche Dir bitte einen anderen Weg oder versuche Dir Perl Grundkenntnisse zu zu legen. So wird das nichts. Dein Array wird nicht gefüllt. Zu mindest sieht es so aus. Schaue doch mal ob Dein err nicht einen Wert hat der dir verrät was los ist. Gib mal err aus.
print oder printf

Ich bin weg

[klausmrkor]

Kann mir vielleicht jemand sagen, wie ich ein "Test.pl" aus fhem aufrufen kann?

Code Auswählen Erweitern

define Test at +*00:01:00  {fhen "/opt/fhem/www/pgm2/Test.pl")}

[hartenthaler]

Kann mir vielleicht jemand sagen, wie ich ein "Test.pl" aus fhem aufrufen kann?

Code Auswählen Erweitern

define Test at +*00:01:00  {fhen "/opt/fhem/www/pgm2/Test.pl")}

Wozu denn das? Mit fhen geht es sicher nicht. Jeder Buchstabe zählt.

Wieso gehst Du nicht den eingeschlagenen Weg weiter? Was steht in $err und was steht in @content nach dem Einlesen der Datei? Ich habe jetzt nicht speziell nach der Funktion FileRead in fhem gesucht, aber naheliegenderweise wäre für mich plausibler

Code Auswählen Erweitern


my $fileName = "/opt/fhem/www/pgm2/Zahl.txt";
my ($err, @content) = FileRead({FileName => $fileName, ForceType => "file"});


Ein alternativer Ansatz ist oben auch schon einmal angerissen worden. Du kannst in Deinem Shell-Script direkt einen dummy-Wert in fhem setzen.

Code Auswählen Erweitern


perl "$fhemdir"/fhem.pl 7072 $myTelnetPW "trigger $dev $reading $filecontent

Dabei enthält die Shell-Variable fhemdir den Pfad zu fhem auf Deinem System und myTelnetPW das eventuell nötige Passwort. dev enthält den Namen Deines dummy-Devices und reading den Namen des Readings, das gesetzt werden soll. In filecontent müsste die Zahl aus Deinem File Zahl.txt stehen. Dann kannst Du in fhem mit einem notify darauf reagieren sobald Dein shell-Script durchgelaufen ist und einen Wert geschrieben hat (sonst müsstest Du noch irgendwie den cron-job für das shell-script und das at in fhem synchronisieren).

[Wuppi68]

mach mal dieses ....

Code Auswählen Erweitern

+*00:01:00  {
  my $fileName =  '/opt/fhem/www/pgm2/Zahl.txt' ;
  my ($err, @content) = FileRead ($fileName);

  Log3 Debug, 0, "Error: $err Content[0]: @content[0]";

  fhem "setreading Leistung abgelesen " . @content[0];
}

und schreib dann mal was im Logfile dazu drinnen steht - ich vermute einfach, das Zahl.txt in dieser Schreibweise nicht als Datei vorliegt ...

und setzt mal das Verbose vom Notify auf 5

[klausmrkor]

Hier der Fehlercode:

Code Auswählen Erweitern

2017.01.14 01:18:25 1: PERL WARNING: Scalar value @content[0] better written as $content[0] at (eval 2063) line 5.
2017.01.14 01:18:25 3: eval: {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => "Zahl.txt"});

  Log3 Debug, 0, "Error: $err Content[0]: @content[0]";

  fhem "setreading Leistung abgelesen " . @content[0];
}
2017.01.14 01:18:25 1: PERL WARNING: Scalar value @content[0] better written as $content[0] at (eval 2063) line 7.
2017.01.14 01:18:25 3: eval: {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => "Zahl.txt"});

  Log3 Debug, 0, "Error: $err Content[0]: @content[0]";

  fhem "setreading Leistung abgelesen " . @content[0];
}
2017.01.14 01:18:25 1: ERROR evaluating {
  my $fileName =  '/opt/fhem/www/pgm2' ;
  my ($err, @content) = FileRead ({FileName => $fileName, ForceType => "Zahl.txt"});

  Log3 Debug, 0, "Error: $err Content[0]: @content[0]";

  fhem "setreading Leistung abgelesen " . @content[0];
}: Not enough arguments for main::Debug at (eval 2063) line 5, near "Debug,"

2017.01.14 01:18:25 3: leistung: Not enough arguments for main::Debug at (eval 2063) line 5, near "Debug,"


[Wuppi68]

Code Auswählen Erweitern

+*00:01:00  {
  my $fileName =  '/opt/fhem/www/pgm2/Zahl.txt' ;
  my ($err, @content) = FileRead ($fileName);

  Log3 'TestNotify', 0, "Error: $err Content[0]: @content[0]";

  fhem "setreading Leistung abgelesen " . @content[0];
}

bitte noch einmal ... hatte meinen letzten Code noch einmal editiert