Posted to tcl by mjanssen at Thu Nov 08 23:08:23 GMT 2007view pretty

#! /bin/sh
# the next line restarts using wish \
 exec wish "$0" "$@"
 set file /tmp/TV-Viewer/channels.txt
 set f [open $file r]
 set i 1
 while {[gets $f line]!=-1} {
 foreach {kanal channel} [split $line] {
 set kanale($i,kanal) $kanal
 set kanale($i,channel) $channel
 }
 incr i
}

parray kanale