---

Jeg har forgæves ledt efter en (perl) funktion der kan
konvertere sekunder til tekst med en begrænset nøjagtighed.
fx:
1 -> 1s
60 -> 1m
3600 -> 1t
86400 -> 1d
86400+3600 -> 1d 1t
86400+3600+60 -> 1d 1t

/hjj

---

Hans Jørgen Jakobsen wrote:
>
> Jeg har forgæves ledt efter en (perl) funktion der kan
> konvertere sekunder til tekst med en begrænset nøjagtighed.
> fx:
> 1 -> 1s
> 60 -> 1m
> 3600 -> 1t
> 86400 -> 1d
> 86400+3600 -> 1d 1t
> 86400+3600+60 -> 1d 1t
>
> /hjj

Det kommer an på hvad du mener med "en begrænset nøjagtighed". Hvis det
er, at der højst er 2 enheder, og at der rundes ned til dette, så kan du
bruge følgende sub (som anvender POSIX::floor):

sub tidtek
{ my $t = shift; my $ret = '';
$_ = $t %60; $t = floor($t /60);
$ret = $_.'s '.$ret if $_ !=0;
$_ = $t %60; $t = floor($t /60);
$ret = $_.'m '.$ret if $_ !=0;
$_ = $t %24; $t = floor($t /24);
$ret = $_.'t '.$ret if $_ !=0;
$ret = $t.'d '.$ret if $t !=0;
$ret =~ s/^(\S+\s\S+).*/$1/;
return $ret;
};

--
hal9000 ~~ mailto:hal9000@fetchmail.com

---

hal9000 <hal9000@fetchmail.com> writes:
> bruge følgende sub (som anvender POSIX::floor):

Man kan evt. bare bruge int($t / 60)
--
Lars Balker Rasmussen "Woo hoo!?"

---

On Sat, 01 Sep 2001 14:29:35 +0100, hal9000 wrote:

> sub tidtek

Tak, det var det jeg ledte efter.

/hjj