Posted to tcl by Bradipo at Mon Nov 07 18:33:30 GMT 2011view raw

  1. $ tclsh something
  2. cn:: QnJhZGlwbw==
  3. cn:: QnJhZGlwbw==
  4. : QnJhZGlwbw==
  5.  
  6. Interactive:
  7.  
  8. % set something "cn:: QnJhZGlwbw=="
  9. cn:: QnJhZGlwbw==
  10. % regexp -nocase {^cn:: *(.*)$} $i dummy tmp
  11. 1
  12. % set tmp
  13. QnJhZGlwbw==
  14.