Posted to tcl by aspect at Thu Jun 30 04:27:30 GMT 2011view pretty
#!/usr/bin/tclsh package require Expect spawn tclsh ;# my .tclshrc sets up a colour prompt for interactive use expect tclsh set buf $expect_out(buffer) puts "Raw string length: [string length $buf]" set str [un_ansi $buf] puts "un-ansi'ed string length: [string length $str]" puts "actual string: $str"