Time problem...

[Access]

my code

Code: Select all

   set mytime 2006-12-10 21:58:55
   set unxtime [clock scan $mytime]
   set now [unixtime] 
   set timeago [duration [expr ($now - $unxtime)]]
   putchan  $chan "mytime: $mytime timeago: $timeago

my output

Code: Select all

<eggdrop> mytime 2006-12-10 21:58:55 timeago: 5 weeks 1 day 5 hours 27 minutes 39 seconds

how the code must be look to get following output?

Code: Select all

<eggdrop> mytime 10.12.2006 21:58:55 timeago: 5w 1d 5h 27m(in) 39s(ec)

THX

[rosc2112]

Code: Select all

set timeago [duration [expr ($now - $unxtime)]] 
set week "";set day "";set hour ""';set min "";set sec ""
regexp {([0-9]) week.*? ([0-9]) day.*? ([0-9]) hour.*? ([0-9]) minute.*? ([0-9]) second.*?} $timeago week day hour min sec
putchan $chan "mytime $mytime: timeago: $week\w $day\d $hour\h $min\m $sec\s"
#antiwordwrap#--------------------------------------------------------------------------------------------------------------

That's one way.

[user]

Code: Select all

regexp {([0-9]) week.*? ([0-9]) day.*? ([0-9]) hour.*? ([0-9]) minute.*? ([0-9]) second.*?} $timeago week day hour min sec

That pattern requires all units to be present in the string (which will not always be the case..)
Try something like this instead:

Code: Select all

regsub -all { ([wdhms])[^ ]+} $timeago \\1 timeago

or

Code: Select all

set timeago [string map {" weeks" w " week" w " days" d " day" d " hours" h " hour" h " minutes" m " minute" m " seconds" s " second" s} $timeago]

[Access]

Code: Select all

set timeago [string map {" weeks" w " week" w " days" d " day" d " hours" h " hour" h " minutes" m " minute" m " seconds" s " second" s} $timeago]

Works great, thx!


And whats about the $mytime variable? anyone an idea to solve this?

[user]

Code: Select all

clock format $unxtime -format "%d.%m.%Y %T"

[Access]

???

do u know what i want?

i want to convert

Code: Select all

2006-10-28 00:08:42

or

Code: Select all

1161986922

to

Code: Select all

28.10.2006 00:08:42

[Sir_Fz]

Yeah, and that's what you got. $unxtime in this case would be '1161986922'.

[rosc2112]

I dunno why I didn't think of using [string map] that would be simpler =)