Posted to tcl by aspect at Thu Nov 10 01:41:17 GMT 2011view raw
- #!/usr/bin/tclsh
- #
- # test.bin is made from:
- # ( ls /usr/share/doc/tcl8.6 ; echo END ; tar -C /usr/share/doc/tcl8.6 -cz . ) > test.bin
- #
- # why the need to [seek $f [tell $f]]? What should I be doing instead?
- # (eliminate that line and see tar error)
- #
- set f [open test.bin]
- while {[set l [gets $f]] != "END"} {}
- chan configure $f -encoding binary -translation binary
- # needing to do this is a bit odd
- seek $f [tell $f]
- exec tar -tzv <@ $f
- close $f