Как измерить время процессора сценария TCL

Question

У меня есть длинный сценарий TCL. Я хочу, чтобы точно измерить время центрального процессора процесс принимает в TCL

Я попробовал команду времени в TCL, но я не уверен, что это правильный способ измерения времени центрального процессора принято полного сценарий TCL

Answer 1

самого Tcl не предоставить эту информацию. Вы хотите использовать команду T12X times.

package require Tclx 

set pre [times] 
# do CPU intensive operation here; for example calculating the length of a number with many digits... 
string length [expr {13**12345}] 
set post [times] 

# the current process's non-OS CPU time is the first element; it's in milliseconds 
set cpuSecondsTaken [expr {([lindex $post 0] - [lindex $pre 0])/1000.0}] 
# The other elements are: system-cpu-time, subprocess-user-cpu-time, subprocess-system-time 

Вы, конечно, находитесь в зависимости от операционной системы, которая правильно измеряет эту информацию. Он не переносится в системы, отличные от POSIX (например, Windows), хотя в пакете TWAPI может быть что-то логически схожее.