fork(2) download 
  1. set range {[5]}
  2. regexp -- {\[([1-9]\d*)(?::([1-9]\d*))?\]} $range -> start end
  3. puts "Range: $range"
  4. puts "Start: $start"
  5. puts "End:   $end"
  6.  
  7. set range {[7:9]}
  8. regexp -- {\[([1-9]\d*)(?::([1-9]\d*))?\]} $range -> start end
  9. puts "Range: $range"
  10. puts "Start: $start"
  11. puts "End:   $end"
Success #stdin #stdout 0.03s 5272KB
comments ()
stdin 
Standard input is empty
stdout 
Range: [5]
Start: 5
End:   
Range: [7:9]
Start: 7
End:   9
https://ideone.com/coB3AK
language:
TCL (tcl 8.6)
created:
11 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!