Guest User

Untitled

a guest
Jul 18th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. foreach k [array names newData] {
  2. regexp -all {shift.*} "[lindex $newData($k) 0]" match
  3. puts $match
  4. }
Add Comment
Please, Sign In to add comment