Zeiten mit Perl auslesen

[Schuggi]

 Wie kann ich mit Perl die "NTFY_TRIGGERTIME" oder auch die Zeiten der Readings auslesen?

Code Auswählen Erweitern

Internals:
   CODE       3
   CUL_MSGCNT 56
   CUL_RAWMSG K21251268F6
   CUL_RSSI   -79
   CUL_TIME   2013-06-21 10:58:44
   DEF        3
   IODev      CUL
   LASTInputDev CUL
   MSGCNT     56
   NAME       CUL_Temp_A
   NR         219
   NTFY_TRIGGERTIME 2013-06-21 10:58:44
   STATE      T: 22.5  H: 68.1
   TYPE       CUL_WS
   corr1      0
   corr2      0
   corr3      0
   corr4      0
   Readings:
     2013-06-21 10:58:44   DEVFAMILY       WS300
     2013-06-21 10:58:44   DEVTYPE         S300TH
     2013-06-21 10:58:44   humidity        68.1
     2013-06-21 10:58:44   state           T: 22.5  H: 68.1
     2013-06-21 10:58:44   temperature     22.5


Gruß
  Schuggi

[fritz]

Code Auswählen Erweitern

use Date::Format;
<F>

[Schuggi]

Kapier ich nicht.

[fritz]

use - Ein externes Modul in Perl benutzen, die Anweisung setzt man i.d.R. ziemlich weit vorn in die pm-Datei. Alles Weitere (incl. evtl. notwendiger Download-Links) findest Du eigentlich unter www.cpan.org wenn Du den Modulnamen dort eingibst.
Date::Format dient dazu Zeichenketten, die Datum/Zeit repräsentieren in verschiedene Datum/Zeit-Typen umzuwandeln - und zurück. Welche Funktionen Du brauchst, musst Du selbst herausfinden, das hängt insbesondere davon ab, in welcher Form Du das Ergebnis benötigst.
Hoffe, das hilft Dir weiter

<F>

P.S.: 'tschuldige die kurze Antwort im ersten Versuch - aber für den Fall, dass Du mit CPAN vertraut bist, hätte es nicht mehr benötigt :-)

[Schuggi]

Ich hab das etwas anders gemeint.
Ich suche eine Möglichkeit wie in dieser Art:

Code Auswählen Erweitern

my $Temp_I = ReadingsVal("CUL_Temp_I","temperature",19.9)
Nur möchte ich halt nicht den Wert sondern die Zeit des letzten Updates auslesen.

Ich will kein Modul programmieren sondern die Möglichkeit direkt in FHem nutzen können.

Gruß
  Schuggi

[Dietmar63]

Code Auswählen Erweitern


ReadingsTimestamp($$$)


sonst wie ReadingsVal!

[UliM]

Wie kann ich mit Perl die "NTFY_TRIGGERTIME" oder auch die Zeiten der Readings auslesen?

Zeiten der Readings: ReadingsTimeStamp
Properties: aus $defs{<device}{property} , also zB my $wert = $defs{lampe1}{NTFY_TRIGGERTIME}
Gruß, Uli

[Schuggi]

Hallo Uli,
genau das habe ich gesucht.

Sind solche Sachen irgend wo dokumnentiert?

Gruß
  Schuggi

[Puschel74]

Hallo,

sollte eigentlich in der command.ref sein

Grüße

P.S.: Auch für mich ist die etwas "unübersichtlich" ;-)

[UliM]

Hi,
ist mWn nur hier im Forum zu finden - und in diversen Programmen :)
Vll spendiert ja jemand nenFunktion wie PropertyVal(<device>, <property>, <default>)
=8-)

[Schuggi]

sollte eigentlich in der command.ref sein

Konnte ich da aber leider nicht finden!
Gruß
  Schuggi