Hi ai am ashish patnaik .. a newbie to TCL .. you might be seeing a lot of questions from me than answers :-)

#!/usr/bin/tcl# Count accesses from a series of computers to a serverset fhandle [open seal_log r]while {[set line [gets $fhandle]] >0} {        set hitlist [split $line]        set hostname [lindex $hitlist 0]        if {[info exists counter($hostname)]} {                incr counter($hostname)        } else {                set counter($hostname) 1        }}foreach host [lsort [array names counter]] {        puts "$host accessed us $counter($host) times"        }