fork(2) download 
  1. set line "foo \"aaa\"zz bar \"aaa:ccc\" ccc"
  2. set matches [regexp -all -inline {"([^"]*)"} $line]
  3. set res {}
  4. foreach {match capture} $matches {
  5.     lappend res $capture
  6. }
  7. puts $res
Success #stdin #stdout 0.01s 5592KB
comments (?)
stdin 
Standard input is empty
stdout 
aaa aaa:ccc
https://ideone.com/HOQIxS
language:
TCL (tcl 8.6)
created:
4 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!