set i -1 while {[incr i]<512} {puts "0[set p [format %03o $i]] 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