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 {&nbsp;&nbsp;(.*)min&nbsp;} $oscar tpp0 tpp1 tpp2 tpp3]} {
        set fas2 "$tpp1 $tpp2"
    }
}
putlog "$fas1 $fas2"