Posted to tcl by mjanssen at Thu Oct 19 22:04:55 GMT 2006view pretty

package require http
set data [set [http::geturl http://tvrage.com/quickschedule.php](body)]

set shows {}

set lines [split $data \n]
foreach line $lines {	
    regexp {\[(.*)?\](.*)\[.*\]} $line -> type value
    switch $type {
	DAY {set current_day $value}
	TIME {set show_time $value}
	SHOW {dict set shows $current_day $show_time $value}
	default {continue} 
    }
}

set dates [dict keys $shows]

puts $dates

set times [dict keys [dict get $shows [lindex $dates 0]]]