Posted to tcl by aspect at Thu Jun 30 04:27:30 GMT 2011view raw

  1. #!/usr/bin/tclsh
  2.  
  3. package require Expect
  4.  
  5. spawn tclsh ;# my .tclshrc sets up a colour prompt for interactive use
  6.  
  7. expect tclsh
  8.  
  9. set buf $expect_out(buffer)
  10. puts "Raw string length: [string length $buf]"
  11. set str [un_ansi $buf]
  12. puts "un-ansi'ed string length: [string length $str]"
  13. puts "actual string: $str"