Posted to tcl by kostix at Sat Nov 07 00:14:16 GMT 2009view raw

  1. % foreach line [split [exec systeminfo] \n] { if {[string match "Время работы*" $line]} { puts $line; break } }
  2. Время работы системы: 3 дн., 12 час., 45 мин, 23 сек.