Posted to tcl by schelte at Thu Jun 02 14:03:10 GMT 2011view raw
- 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"