Posted to tcl by Bradipo at Mon Nov 07 18:33:30 GMT 2011view raw
- $ tclsh something
- cn:: QnJhZGlwbw==
- cn:: QnJhZGlwbw==
- : QnJhZGlwbw==
- Interactive:
- % set something "cn:: QnJhZGlwbw=="
- cn:: QnJhZGlwbw==
- % regexp -nocase {^cn:: *(.*)$} $i dummy tmp
- 1
- % set tmp
- QnJhZGlwbw==