fork(2) download
copy 
  1. set str {Pattern[1]: 
  2. Key : "key1" 
  3. Value : 100
  4. Pattern[2]: 
  5. Key : "key2" 
  6. Value : 20
  7. Pattern[3]: 
  8. Key : "key3" Value : 30
  9. Pattern[4]: 
  10. Key : "key4" 
  11. Value : 220"}
  12.  
  13. set updateList [regexp -all -inline {Pattern\[\d+\]:\s*Key[^\n]*\s*Value[^\n]*} $str]
  14. puts $updateList
Success #stdin #stdout 0s 15856KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
{Pattern[1]: 
Key : "key1" 
Value : 100} {Pattern[2]: 
Key : "key2" 
Value : 20} {Pattern[3]: 
Key : "key3" Value : 30} {Pattern[4]: 
Key : "key4" 
Value : 220"}
https://ideone.com/kAnNpA
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!