Shell Programming and Scripting

% perm=$(ls -l file1 | nawk 'BEGIN {
v["r1"]=400; v["w2"]=200; v["x3"]=100; v["s3"]=4100; v["S3"]=4000
v["r4"]=40 ; v["w5"]=20 ; v["x6"]=10 ; v["s6"]=2010; v["S6"]=2000
v["r7"]=4  ; v["w8"]=2  ; v["x9"]=1  ; v["t9"]=1001; v["T9"]=1000}
{val=0
 for (i=1;i<=9;i++) val=val+v[substr($0,i+1,1)i]
 printf "%4d\n",val}')
%
% echo $perm
666
%
% chmod $perm file2
% ls -ltr file2
-rw-rw-rw-   1 userid   gid       573 Jun 22 14:01 file2
%

stat -c '%a' filename.txt

$ uname -sr
SunOS 5.9
$ getfacl File1| setfacl -f - File2
$

$ chmod 000 a.txt
$ ls -l a.txt | awk -f permission.awk 
000

$ chmod 001 a.txt
$ ls -l a.txt | awk -f permission.awk 
001

$ chmod 031 a.txt
$ ls -l a.txt | awk -f permission.awk 
031

$ cat permission.awk 
function cal(str)
{
    a=0;
    if(str~/r/)
    {
        a+=4;
    }
    if(str~/w/)
    {
        a+=2;
    }
    if(str~/x/)
    {
        a+=1;
    }
}
{
for(i=2;i<=length($1);i=i+3)
{
    cal(substr($1,i,3))
    octal=octal""a;
}
print octal
}