From: Uwe Klein on
Sooraj S wrote:
> Hi Klein,
>
> Thanks for your help .... it worked...
>
> i got it in another way also... do tell me if the code looks junk...
>
> set len [string length $version]
> for {set i 0} {$i < $len} {incr i} {
> set s [string index $version $i]
> append version_dot $s
> puts "\nCheck$i : $version_dot"
> if {$i <= $len-1} {
> append version_dot "."
> }
> }
> puts "Version : $version_dot"

you are effectively writing "c" code in tcl.

But tcl is not c.

uwe