[gelöst] Ausgabe von hh:mm:ss in stateformat

[juemuc]

Hallo,

aktuell gebe ich die in einem reading enthaltenen Sekunden im stateformat über Variablen aus ($h:$m:$s). Allerdings werden hier die führenden Nullen unterdrückt. Bsp. 0:7:3 anstatt 00:07:03. staeformat ist wie folgt definiert:

Code Auswählen Erweitern

{if (ReadingsVal($name,"state","") eq "off")
{"off"}
else
{my $sec=ReadingsNum("EZ_Lampe_dimmen_dummy","timerRemaining",0);
  my $hour=$sec/3600;
  my $h=int($hour);
  $sec=$sec - ($h * 3600); 
  my $min=$sec /60;
  my $m=int($min);
  my $s=$sec - ($m * 60);
  "$h:$m:$s"}}
Wie kann ich die Ausgabe formatieren?
Viele Grüße
Jürgen

[Byte09]

das zauberwort hier ist wohl sprintf

https://perldoc.perl.org/functions/sprintf.html

gruss Byte09

[juemuc]

Danke es funktioniert 

hier die Definition, falls es jemand benötigt:

Code Auswählen Erweitern

{my $sec=ReadingsNum("EZ_Lampe_dimmen_dummy","timerRemaining",0);
my $hour=$sec / 3600;
my $h=sprintf('%02s',int($hour));
$sec=$sec - ($h * 3600); 
my $min=$sec / 60;
my $m=sprintf('%02s',int($min));
my $s=sprintf('%02s',$sec - ($m * 60));
"$h:$m:$s"}

Viele Grüße
Jürgen