Posted to tcl by kbk at Mon Nov 27 15:23:26 GMT 2017view raw

  1. % set x [join {this is a test} \n]
  2. this
  3. is
  4. a
  5. test
  6. % regexp -all -inline -line {^t[a-z]*} $x
  7. this test
  8.