Posted to tcl by marc.ziegenhagen at Mon May 07 18:53:49 GMT 2012view raw

  1. set lines [list \
  2. "{{INSERT INTO alkala (mutvis,alktxt,mutdat) VALUES ('','1 ZH 23 {H u P} 16 OG',1336084875)}}" \
  3. "{INSERT INTO alkala (mutvis,alktxt,mutdat) VALUES ('','1 ZH 23 {H u P} 16 OG',1336084875)}" \
  4. "{{INSERT INTO alkala (mutvis,alktxt,mutdat) VALUES ('','1 ZH 23 {H u P} 16 {1. OG}',1336084875)}}" \
  5. "{INSERT INTO alkala (mutvis,alktxt,mutdat) VALUES ('','1 ZH 23 {H u P} 16 {1. OG}',1336084875)}" \
  6. ]
  7.  
  8. foreach line $lines {
  9. puts [string repeat "-" 80]
  10. puts "begin line $line"
  11.  
  12. while {[llength $line] == 1} {
  13. set line [lindex $line 0]
  14. }
  15.  
  16. puts "final line $line"
  17. }