Posted to tcl by dgp at Wed Jun 03 12:51:11 GMT 2015view raw
- spalt:~/erp: cat test1.tcl
- #!/bin/env tclsh
- set a 100
- exec ./test2.tcl &
- puts $a
- exit
- spalt:~/erp: cat test2.tcl
- #!/bin/env tclsh
- set b 3
- puts $b
- exit
- spalt:~/erp: ./test1.tcl
- 100
- spalt:~/erp: 3
- ls
- test1.tcl* test2.tcl*
- spalt:~/erp: