Sekunden in Stunden und Minuten ausgeben

[B.Stromberg]

Guten Morgen!
Ich bastele schon eine Weile daran herum, ein Reading, welche leider nur in Sekunden ausgegeben wird in Stunden und Minuten umzuwandeln.

Das Reading heißt:

status_timer_length 65760

ich habe daraus nun ein Userreading gemacht:

Code Auswählen Erweitern


attr anova userReadings laufzeit {sprintf("%.2f",(ReadingsVal($name,"status_timer_length",0)/3600))}


Das Ganze stimmt ja nun nur teilweise.

Ausgehen von 65760 Sekunden, müsste dies durch 3600 geteilt werden und dann die Dezimalzahl hinter dem Komma wieder x 60 multipliziert werden.
Leider habe ich dahingehend nichts gefunden.

Kann mir jemand auf die Sprünge helfen?

[JoWiemann]

Hm, und wo hast Du gesucht? Googeln führt zu gaaanz vielen Treffern. Und dann ist da ja noch der Modulo Operator % in Perl.

($Stunden, $Minuten, $Sekunden)=(int($Sekunden/3600), int(($Sekunden % 3600) / 60), $Sekunden % 60);



Gesendet von iPhone mit Tapatalk

Grüße Jörg

[B.Stromberg]

Hm, und wo hast Du gesucht? Googeln führt zu gaaanz vielen Treffern. Und dann ist da ja noch der Modulo Operator % in Perl.

($Stunden, $Minuten, $Sekunden)=(int($Sekunden/3600), int(($Sekunden % 3600) / 60), $Sekunden % 60);



Gesendet von iPhone mit Tapatalk

Grüße Jörg

Ja ich weiß, dass ist alles total easy für:

1. Jemand der weiß nach was er überhaupt suchen muss
2. Jemand der sich mit PHP, Perl etc. auskennt

Und du wirst "lachen"

Nicht einmal deine Antwort hilft mir weiter, weil ich 0 Ahnung habe, wie ich diese nun im Attribut umsetze

Deshalb poste ich ja auch im Anfänger Forum

[Frank_Huber]

In meinen ESP-Easy Geräten habe ich das hier zum Umrechnen der Uptime: (wird in Minuten ausgegeben)

Code Auswählen Erweitern

attr ESP106 userReadings Uptime_Calc {sprintf("%d %02d:%02d",SYSMON_decode_time_diff((ReadingsVal($name,"uptime",0))*60))}\

würde für dich dann zu folgendem kommen:

Code Auswählen Erweitern

attr anova userReadings laufzeit {sprintf("%d %02d:%02d",SYSMON_decode_time_diff(ReadingsVal($name,"status_timer_length",0)))}\

[B.Stromberg]

In meinen ESP-Easy Geräten habe ich das hier zum Umrechnen der Uptime: (wird in Minuten ausgegeben)

Code Auswählen Erweitern

attr ESP106 userReadings Uptime_Calc {sprintf("%d %02d:%02d",SYSMON_decode_time_diff((ReadingsVal($name,"uptime",0))*60))}\

würde für dich dann zu folgendem kommen:

Code Auswählen Erweitern

attr anova userReadings laufzeit {sprintf("%d %02d:%02d",SYSMON_decode_time_diff(ReadingsVal($name,"status_timer_length",0)))}\

Vielen Dank, dass du mir helfen möchtest.

ich bekomme nun folgende Fehlermeldung:

Error evaluating anova userReading laufzeit: Undefined subroutine &main::SYSMON_decode_time_diff called at (eval 172) line 1.

[Frank_Huber]

ah, dann geht das evtl nur wenn ein Sysmon Gerät angelegt ist.

Code Auswählen Erweitern

define sysmon SYSMON 1 1 1 10 Beispiel für RasPi.

[Christoph Morrison]

Ich kenne SYSMON_decode_time_diff(), wollte die Funktion aber noch mit ein paar Zückerchen und habe mir deshalb in meiner 99_myUtils.pm folgende Funktion angelegt:

Code Auswählen Erweitern


=pod

    Create a human readable representation for a given time t, like x minutes, y seconds, but only
    with the necessary pieces.

    Respects your wishes regarding scalar / list context, e.g.

    # list context
    say Dumper(timediff2str(10000))
        $VAR1 = '1';
        $VAR2 = '3';
        $VAR3 = '46';
        $VAR4 = '40';

    # scalar context
    say Dumper(scalar timediff2str(100000));
        $VAR1 = '1 Tage, 03 Stunden, 46 Minuten, 40 Sekunden';

=cut
sub timediff2str($)
{
    my $s = shift;

    return unless defined wantarray;

    return undef unless defined $s;

    return (
        wantarray
            ?   (0,0,0,$s)
            : sprintf "%02d Sekunden", $s
    ) if $s < 60;

    my $m = $s / 60; $s = $s % 60;
    return (
        wantarray
            ?   (0, 0, POSIX::floor($m), POSIX::floor($s))
            :   sprintf "%02d Minuten, %02d Sekunden", $m, $s
    ) if $m < 60;

    my $h = $m /  60; $m %= 60;
    return (
        wantarray
            ?   (0, POSIX::floor($h), POSIX::floor($m), POSIX::floor($s))
            :   sprintf "%02d Stunden, %02d Minuten, %02d Sekunden", $h, $m, $s
    ) if $h < 24;

    my $d = $h / 24; $h %= 24;
    return (
        wantarray
            ?   ( POSIX::floor($d), POSIX::floor($h), POSIX::floor($m), POSIX::floor($s))
            :   sprintf "%d Tage, %02d Stunden, %02d Minuten, %02d Sekunden", $d, $h, $m, $s
    );
}


[B.Stromberg]

ah, dann geht das evtl nur wenn ein Sysmon Gerät angelegt ist.

Code Auswählen Erweitern

define sysmon SYSMON 1 1 1 10 Beispiel für RasPi.

Wieso ist das bloß alles sooooo kompliziert?

Ich habe nun

define sysmon SYSMON 1 1 1 10

direkt in der Befehlszeite in FHEM eingegeben.
Es wurde auch sysmon erstellt und liefert Daten (CPU etc.)

Allerdings kommt schon beim Restart von FHEM diese Fehlermeldung:

Messages collected while initializing FHEM:
configfile: Please define sysmon 5cd0173b-f33f-0855-e284-3be33f2660f54885 first

[Frank_Huber]

Hast Du evtl das speichern vor dem Restart vergessen?

[B.Stromberg]

Hmm kann gut sein, FHEM hatte auch das define für den sysmon ins userreading von anova gepackt ?!??!

Hab ich nun korrigiert

Nun kommt im UserReading wieder die Fehlermeldung:

Error evaluating anova userReading laufzeit: Undefined subroutine &main::SYSMON_decode_time_diff called at (eval 172) line 1.

Achso
Die 99_myUtils.pm habe ich um den Code von @Christoph ergänzt

Gucke ich mir Sysmon an ist das ein Träumchen!
z. B.

fhemstarttime 1557141769
sowie
fhemuptime 720

wird aufgelöst in:

fhemstarttime_text 06.05.2019 13:22:49
sowie
fhemuptime_text 0 days, 00 hours, 13 minutes

[Beta-User]

Wieso ist das bloß alles sooooo kompliziert?

Es ist nicht kompliziert, aber dafür ein nicht benötigtes Device zu definieren MACHT es kompliziert...

Du hast doch schon einen Sekunden-Wert (den du bisher eben nur in Stunden umgerechnet hattest). Jetzt erweiterst du die userreadings-sprintf-Anweisung einfach um weitere Angaben und nutzt den Code von JoWiemann.

Eigentlich ganz einfach, wenn man eine Suchmaschine mit perl und sprintf füttert und etwas selber rumspielt statt darauf zu warten, dass einem jemand funktionalen Code vor die Flinte treibt .

[B.Stromberg]

Okay, habe mal wieder mein Hirn angeschaltet, kann manchmal nicht falsch sein........lüppt nun wie gewünscht

Kann mir hierbei dann auch nochmal jemand einen Denkanstoß geben?

Der Anova gibt die Startzeit mit folgendem Reading aus:

status_current_job_job_start_time
2019-05-06T02:53:48.962904Z

Wie kriege ich das so hin gebogen?

06.05.  2:53 Uhr

[rabehd]

https://forum.fhem.de/index.php?topic=58059.0
https://forum.fhem.de/index.php?topic=73190.0

Das Stichwort split und ein wenig Hirn.

[Beta-User]

(schade, zu spät, aber fertig...)
Erst eine Regex drüber hauen, dann $1 usw. verwenden? Würde es aber immer 2-stellig lassen, sonst ist das unnötig kompliziert.

https://regex101.com/
Gib da mal das hier ein (als Teststring deinen Readinginhalt):

Code Auswählen Erweitern

[\d]+-([\d]+)-([\d]+)T([\d]+):([\d]+):.*Dann den Kopf eingeschaltet lassen .

[B.Stromberg]

https://forum.fhem.de/index.php?topic=58059.0
https://forum.fhem.de/index.php?topic=73190.0

Das Stichwort split und ein wenig Hirn.

Klar
Der geneigte Anfänger such hier im Forum auch nach

Zeichenketten beschneden

Ich weiß, dass du "split" meinstes (JETZT). Selbst mit "beschneiden" wäre ich nicht zu Treffer gekommen (und bei Google wäre ich wohl völlig wo anders gelandet beim Wort "beschneiden") 

Nur wie bitte soll ein ANFÄNGER auf split kommen?

Für euch ist PHP und Perl Alltag. Aber bitte denkt mal daran, dass auch IHR mal damit angefangen habt.
Und wenn man schon etwas älter ist, fällt einem das Ganze nicht mehr so leicht!