fork download
copy 
  1. set summary {------------------------------------------------------------------------
  2. r100 | dawson | 2012-10-3 04:21:27 -0600 (Wed, 3 Oct 2012) | 8 lines
  3. Changed paths:
  4.    M /branches/project/foo.cpp
  5.    A /branches/project/foo1.cpp
  6.    D /branches/project/foo2.cpp
  7.  
  8. :SUMMARY: Add new file
  9. :Module:
  10.  
  11. ------------------------------------------------------------------------}
  12. regexp {\n\s*?Changed paths\s*?:\s*?(.*?):SUMMARY} $summary - blocks
  13. puts $blocks
Success #stdin #stdout 0s 15912KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   M /branches/project/foo.cpp
   A /branches/project/foo1.cpp
   D /branches/project/foo2.cpp
https://ideone.com/QvUi7h
language:
TCL (tcl 8.6)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!