Sekunden in Stunden und Minuten ausgeben

[rabehd]

nd bei Google wäre ich wohl völlig wo anders gelandet beim Wort "beschneiden") 

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

Meine erste Suche wäre mit folgenden Begriffen "fhem" und "beschneiden".
Und siehe da, genau die Treffer 

Ich bin auch gegen fertige Lösungen und freue mich, dass Du mit einem solchen Tip weiterkommst. 

[Christoph Morrison]

Der Anova gibt die Startzeit mit folgendem Reading aus:
status_current_job_job_start_time
2019-05-06T02:53:48.962904Z

Mal als Stichwort: das ist ein ISO-8601-formatiertes Datum. Das kannst du mit str2time() in eine Zahl konvertieren:

Code Auswählen Erweitern


{ use Data::Dumper;; Dumper str2time("2019-05-06T02:53:48.962904Z");; }


ergibt

Code Auswählen Erweitern


$VAR1 = '1557111228.9629';


Ein userReadings könnte so aussehen. Korrekt wäre auch 04:53, denn 2:53 ist UTC, nicht lokale Zeit.

Code Auswählen Erweitern


uptime_human {
    my $time = str2time(ReadingsVal("$name", "status_current_job_job_start_time", undef));
    return POSIX::strftime("%d.%m.  %H:%M", localtime $time) if $time;
    return "";
}


[B.Stromberg]

Mal als Stichwort: das ist ein ISO-8601-formatiertes Datum. Das kannst du mit str2time() in eine Zahl konvertieren:

Code Auswählen Erweitern


{ use Data::Dumper;; Dumper str2time("2019-05-06T02:53:48.962904Z");; }


ergibt

Code Auswählen Erweitern


$VAR1 = '1557111228.9629';


Ein userReadings könnte so aussehen. Korrekt wäre auch 04:53, denn 2:53 ist UTC, nicht lokale Zeit.

Code Auswählen Erweitern


uptime_human {
    my $time = str2time(ReadingsVal("$name", "status_current_job_job_start_time" undef));
    return POSIX::strftime("%d.%m.  %h:%m", localtime $time) if $time;
    return "";
}


Ich gebe mir wirklich Mühe dies nun irgendwie zu verstehen...

Bei diesem UserReading bekomme ich eine Fehlermeldung:

Error evaluating anova userReading uptime_human: syntax error at (eval 246) line 1, near ""status_current_job_job_start_time" undef"
Global symbol "$time" requires explicit package name (did you forget to declare "my $time"?) at (eval 246) line 1.
Global symbol "$time" requires explicit package name (did you forget to declare "my $time"?) at (eval 246) line 1.

[Christoph Morrison]

Ich hatte den Beitrag noch mal editiert. Du warst zu schnell

[B.Stromberg]

Ich hatte den Beitrag noch mal editiert. Du warst zu schnell

Vielen Dank das du dich hier mit mir "rumschlägst"

Aktualisiert kommt nun diese Fehlermeldung:

Error evaluating anova userReading uptime_human: Undefined subroutine &main::str2time called at (eval 159) line 2.

[Christoph Morrison]

Ich glaube str2time kommt aus dem Perl-Paket Date::Parse. Das müsstest du dazu nachinstallieren (mit cpan, cpanm oder deinem Paketmanager, z.B. aptitude libdatetime-format-dateparse-perl).

[Wernieman]

Wobei mit apt-get besser als mit cpam ist, da updatefest!

[Beta-User]

Soweit erkennbar ohne cpan/apt: strftime

Code Auswählen Erweitern

{strftime("%H:%M", localtime(ReadingsAge('MYSENSOR_98','state',0)))}

[B.Stromberg]

Ich glaube str2time kommt aus dem Perl-Paket Date::Parse. Das müsstest du dazu nachinstallieren (mit cpan, cpanm oder deinem Paketmanager, z.B. aptitude libdatetime-format-dateparse-perl).

so
habe ein apt-get install libdatetime-format-dateparse-perl gemacht.

Fehler bleibt leider...

[Christoph Morrison]

FHEM neu gestartet?

[B.Stromberg]

FHEM neu gestartet?

Ja habe ich

Wobei, der Fehler ist wieder ein Anderer:


Error evaluating anova userReading uptime_human: syntax error at (eval 211) line 2, near ""status_current_job_job_start_time" undef"
Global symbol "$time" requires explicit package name (did you forget to declare "my $time"?) at (eval 211) line 3.
Global symbol "$time" requires explicit package name (did you forget to declare "my $time"?) at (eval 211) line 3.


Blödsinn, das war nun mein Fehler

Bleibt bei

Error evaluating anova userReading uptime_human: Undefined subroutine &main::str2time called at (eval 146) line 1.

[Christoph Morrison]

Versuch mal

Code Auswählen Erweitern


uptime_human {
    use Date::Parse;
    my $time = Date::Parse::str2time(ReadingsVal("$name", "status_current_job_job_start_time", undef));
    return POSIX::strftime("%d.%m.  %H:%M", localtime $time) if $time;
    return "";
}


[B.Stromberg]

Hey cool, dass geht ja

Vielen Dank!