Tuesday, March 15, 2011

tcl program redone with nice list commands

#!/usr/local/bin/tclsh

## Read the file
set handle [open 144a]
set gunk [read $handle]
close $handle

## Split into records on 1 blank space
set words [split $gunk " "]

#open result file
set outpipe [open servers a]

#pick out ips on 144 tila network
# write them to result file

set boxes [lsort -unique [lsearch -all -inline $words {144*[1-9]}]]
puts $outpipe $boxes

#close result file
close $outpipe

No comments: