Posted to tcl by kostix at Sat Nov 07 00:14:16 GMT 2009view pretty
% foreach line [split [exec systeminfo] \n] { if {[string match "Время работы*" $line]} { puts $line; break } } Время работы системы: 3 дн., 12 час., 45 мин, 23 сек.
% foreach line [split [exec systeminfo] \n] { if {[string match "Время работы*" $line]} { puts $line; break } } Время работы системы: 3 дн., 12 час., 45 мин, 23 сек.