Posted to tcl by schelte at Thu Jun 02 14:03:10 GMT 2011view raw

  1. foreach oscar [split $imdbdata \n] {
  2. if {[regexp {<title>(.*)\((.*)\) - IMDb</title>} $oscar tp0 tp1 tp2 tp3]} {
  3. set fas1 "$tp1 $tp2"
  4. }
  5. if {[regexp {&nbsp;&nbsp;(.*)min&nbsp;} $oscar tpp0 tpp1 tpp2 tpp3]} {
  6. set fas2 "$tpp1 $tpp2"
  7. }
  8. }
  9. putlog "$fas1 $fas2"