Posted to tcl by dandyn at Wed Mar 27 15:20:27 GMT 2024view pretty
regsub -all { days} $check_date {days} check_date
regsub -all { day} $check_date {day} check_date
regsub -all { hours} $check_date {hrs} check_date
regsub -all { hour} $check_date {h} check_date
regsub -all { minutes} $check_date {mins} check_date
regsub -all { minute} $check_date {min} check_date
regsub -all { seconds} $check_date {sec} check_date
regsub -all { second} $check_date {sec} check_date
Comments
Posted by dandyn at Wed Mar 27 18:26:17 GMT 2024 [text] [code]
string map -nocase { " days" "days" " day" "day" " hours" "hrs" " hour" "h" " minutes" "mins" " minute" "min" " seconds" "sec" " second" "sec" } $check_date
Posted by dandyn at Wed Mar 27 19:29:12 GMT 2024 [text] [code]
string map -nocase { " days" "days" " day" "day" " hours" "hrs" " hour" "h" " minutes" "mins" " minute" "min" " seconds" "sec" " second" "sec" } $check_date