regex - 如何通过 tcl 中的起始模式将文本（列表）拆分为部分（列表）

Question

例如，我的文字是：

Block 1:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx
Block 2:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx
Block 3:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx

我想在 tcl 中按不同的块分割。例如：

{Block 1:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}
{Block 2:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}
{Block 3:
   xxxxxx xxxx
   xxxxxx xxxx
   xxxxxx xxxx}

有什么办法可以使这项工作？谢谢！

Answer 1

试试 tcllib `textutil::splitx` 命令。（见http://core.tcl.tk/tcllib/doc/trunk/embedded/www/tcllib/files/modules/textutil/textutil.html#8）

它可以根据正则表达式拆分文本。