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