Я унаследовал сценарий TCL (я не знаком с языком), и мне нужно добавить к нему временную метку RFC 3339:
2012-04-05T12:13:32.123456-08:00
После поиска в Google я не нашел никаких средств отображения микросекунд или смещения часового пояса (я нашел способ показать название часового пояса, но это не помогает).
Есть ли способ сделать это без вызов внешнего процесса?
В TCL8.5 вы можете попробовать следующую команду:
% clock format [clock seconds] -format "%Y-%m-%dT%T%z"
2012-04-05T16:06:07-0500
Это дает вам все, кроме разрешения менее секунды. Команда clock microseconds даст вам время в микросекундах, но я не могу найти соответствующий идентификатор строки формата. Вы можете использовать это для создания собственной команды с нуля:
proc timestamp_rfc3339 {} {
set us [clock microseconds]
set sec [expr {$us / 1000000}]
set micro [expr {$us % 1000000}]
set ts [clock format $sec -format "%Y-%m-%dT%T"]
regexp {(...)(..)} [clock format $sec -format "%z"] matched tzh tzm
return [format "%s.%06s%s:%s" $ts $micro $tzh $tzm]
}
Запуск этого приводит к отметке времени, такой как 2012-04-05T16:35:06.366378-05:00.
Изменить: обновлен пример кода, чтобы включить настройки пользователя 1179884 (см. комментарии) и включить в процедуру.
