code in 99_myUtils.pm einfügen

[The-Holgi]

Hallo, ich würde gerne den aktuellen Stromverbrauch aus meinem Stromzähler in Fehm anzeigen und einen plot daraus erstellen.
Mit einem kleinen Script:

Code Auswählen Erweitern

#!/bin/sh


aktuell=$(wget -q -O - http://192.168.178.35/index.html | grep " W" | sed -e 's/<[^<>]*>//g; /^[ ]*$/d' | sed 'N;s/\n/#/g' | cut -d"#" -f1)
durch=$(wget -q -O - http://192.168.178.35/index.html | grep " W" | sed -e 's/<[^<>]*>//g; /^[ ]*$/d' | sed 'N;s/\n/#/g' | cut -d"#" -f2)


#aktuell=$(cat ./index.html | grep " W" | sed -e 's/<[^<>]*>//g; /^[ ]*$/d' | sed 'N;s/\n/#/g' | cut -d"#" -f1)
#durch=$(cat ./index.html | grep " W" | sed -e 's/<[^<>]*>//g; /^[ ]*$/d' | sed 'N;s/\n/#/g' | cut -d"#" -f2)

echo "Durchschnittliche Leistung  - $durch"  >/home/pi/strom.txt
echo "Aktuelle Leistung  - $aktuell"  >>/home/pi/strom.txt

exit 0

Bekomme ich die Daten in eine Textdatei. Würde das script jetzt gerne in fhem einbinden einen Tipp dazu habe ich schon von justme1968 bekommen:

Code Auswählen Erweitern

sub
getVerbrauch()
{
  my $html = GetHttpFile("192.168.178.35", "/index.html");

  #my @lines = split( "\r\n", $html );
  #my @niederschlaege = grep /(\d+,\d+) l.m/, @lines;

  my $aktuell = 0.0;
  #if( $niederschlaege[4] =~ m/(\d+),(\d+) l.m/s ) {
    #$niederschlag = $1 + $2/10.0;
  #}

  return $aktuell;
}

Hoffe es kann mir einer helfen es passend zu meiner website ( oberes script) umzu schreiben.

Gruß Holgi