Posted to tcl by aspect at Fri Jan 27 13:41:19 GMT 2017view raw

  1. package require tar
  2. file mkdir temp.[pid]
  3. cd temp.[pid]
  4. proc writefile {name text} {
  5. set fd [open $name w]
  6. puts $fd $text
  7. close $fd
  8. }
  9. writefile 2 "number two"
  10. writefile 02 "zero-two"
  11. tar::create t.tar {2 02}
  12. puts [tar::get t.tar 02]
  13. puts [tar::get t.tar 0b10]
  14. cd ..
  15. file delete -force temp.[pid]
  16.  
  17. # number two
  18. #
  19. # number two
  20.