Как отображать сообщение непрерывно с бесконечным циклом?

Question

My TCL Script:

Я написал следующий сценарий TCL, используя бесконечный цикл while для отображения некоторого сообщения пользователю.

set a "Please Dont disturb... script is running...!!!!!!!!!!!" 
while {1} { 
    puts $a 
    after 3000 
} 

Над сценариями работает как ожидалось. Может ли кто-нибудь помочь мне переписать вышеприведенный скрипт, используя цикл for?

Answer 1

set a "Please Dont disturb... script is running...!!!!!!!!!!!" 

for { } { true } { } { 
puts $a 
after 3000 
}