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

package require tar
file mkdir temp.[pid]
cd temp.[pid]
proc writefile {name text} {
   set fd [open $name w]
   puts $fd $text
   close $fd
}
writefile 2 "number two"
writefile 02 "zero-two"
tar::create t.tar {2 02}
puts [tar::get t.tar 02]
puts [tar::get t.tar 0b10]
cd ..
file delete -force temp.[pid]

# number two
#
# number two