# vi TEST-file-p
#!/bin/csh
echo ""
echo "Input file-name?"
echo ""
set file1 = "$<"
ls -l $file1 | awk '{print $1}' | ¥
sed 's/rwx/7/g' | sed 's/rw-/6/g' | sed 's/r-x/5/g' | sed 's/r--/4/g' | sed 's/-wx/3/g' | sed 's/-w-/2/g' | sed 's/--x/1/
g' | sed 's/---/0/g'
$ ls -l mythtv-bs-off
-rwxr-xr-x 1 root root 831 6月 26 14:45 mythtv-bs-off
実行してみると
$ TEST-file-p
Input file-name?
mythtv-bs-off
-755
笑われそうなプログラムですな
Comments