selective whitespace trimming

[blotter45]

heya guys, I'm just looking for a quick way to trim out certain whitespaces from a string. Here is a proc that just takes a seconds input, takes the [duration seconds] value, and trims it down (so weeks becomes w, days becomes d, and so on):

Code: Select all

proc sr:shortdur { t } {
  set t [duration $t]
  regsub -all -- {years?} $t {y} t
  regsub -all -- {weeks?} $t {w} t
  regsub -all -- {days?} $t {d} t
  regsub -all -- {hours?} $t {h} t
  regsub -all -- {minutes?} $t {m} t
  regsub -all -- {seconds?} $t {s} t
  return $t
}

so a duration of "2 weeks 3 days 14 minutes 36 seconds" then becomes "2 w 3 d 14 m 36 s", but then I'd like to trim the spaces between the number and w,d,m,s so that it becomes: "2w 3d 14m 36s".. So is regsub also the best way to do that, or can you recommend another method?

[demond]

use this:

Code: Select all

proc duration {t} {
	set days [expr $t / (3600 * 24)]
	set hour [expr ($t - (3600 * 24 * $days)) / 3600]
	set mins [expr (($t - (3600 * 24 * $days)) % 3600) / 60]
	if $days {append str "$days day(s), "}
	if $hour {append str "$hour hour(s), "}
	return [append str "$mins minute(s)"]
}

[De Kus]

why not simply adding the whitespace to the re, if you really love these slow things?

Code: Select all

{ years?}

[blotter45]

why not simply adding the whitespace to the re, if you really love these slow things?

Code: Select all

{ years?}

Actually I took your advice and applied it to string map instead of regsub, much better

Code: Select all

proc sr:shortdur { t } {
  set t [duration $t]
  set t [string map {" years" "y" " year" "y"} $t]
  set t [string map {" weeks" "w" " week" "w"} $t]
  set t [string map {" days" "d" " day" "d"} $t]
  set t [string map {" hours" "h" " hour" "h"} $t]
  set t [string map {" minutes" "m" " minute" "m"} $t]
  set t [string map {" seconds" "s" " second" "s"} $t]
  return $t
}

Thanks for the help guys!