무한 루프로 메시지를 계속 표시하는 방법은 무엇입니까?

Question

내 TCL 스크립트 :

무한 while 루프를 사용하여 다음 메시지를 사용자에게 표시하려면 다음 TCL 스크립트를 작성했습니다.

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 
}