for {set i 0} {$i<512} {incr i} {set p [format %03o $i];puts "0$p is -[string map {0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx} $p]"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page