fork(1) download 
  1. set var {Notif[0]:
  2. some text multiple line
  3. Notif[1]:
  4. multiple line text
  5. Notif[2]:
  6. text again
  7. Notif[3]:
  8. text again
  9. Finish
  10. }
  11.  
  12. set notifList [regexp -inline -all -nocase {Notif\[\d+?\].*?(?=Notif|Finish)} $var]
  13. puts $notifList
Success #stdin #stdout 0s 15856KB
comments (?)
stdin 
Standard input is empty
stdout 
{Notif[0]:
some text multiple line
} {Notif[1]:
multiple line text
} {Notif[2]:
text again
} {Notif[3]:
text again
}
https://ideone.com/sRZgWC
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!