Posted to tcl by schelte at Thu Jun 02 14:03:10 GMT 2011view pretty
foreach oscar [split $imdbdata \n] { if {[regexp {<title>(.*)\((.*)\) - IMDb</title>} $oscar tp0 tp1 tp2 tp3]} { set fas1 "$tp1 $tp2" } if {[regexp { (.*)min } $oscar tpp0 tpp1 tpp2 tpp3]} { set fas2 "$tpp1 $tpp2" } } putlog "$fas1 $fas2"