unix command 和 sas 一起使用的问题

shiyiming

我想用SAS写一个程序去检查某个用户在某个主目录下对其下所有子目录的访问权限（这里可以嵌套使用UNIX 命令去做判断），可以进入的记为Y,拒绝进入的记为N,最后将结果输出到EXCEL中：

shiyiming

死猪头

shiyiming

To 猪头：
i find a problem

shiyiming

死猪头

shiyiming

老猪：
   你的程序好像有点问题啊，运行后缺少了主目录那行，也就是第一行数据。。。

shiyiming

[quote="死猪头":3ct3akwd]宏参数两点假设：
(1) dir是绝对路精，不含空隔或其它杂碎
(2) user存在
Also assuming standard Unix permission instead of ACL.
把结果捣到EXCEL有好多种办法，不用说了。
[code:3ct3akwd]
%macro zhutou(user=, dir=);
filename id pipe "groups &user";
data groups;
        infile id;
        length groups $ 255;
        input;
        groups = substr(_infile_, find(_infile_, ':')+2);
        call symputx('groups', cats('"', tranwrd(trim(groups), ' ', '","'), '"'));
filename ls pipe "ls -lR --time-style=+%nrstr(%%Y-%%m-%%d) &dir";
data permission;
        infile ls;
        length permission $ 10 owner group $ 8 path $ 32767 parent $ 32767;
        retain parent;
        input;
        if _infile_ =: '/' then do;
                parent = substr(_infile_, 2, length(_infile_)-2);
        end;
        else if _infile_=:'d' then do;
                permission = scan(_infile_,1,' ');
                owner = scan(_infile_,3, ' ');
                group = scan(_infile_,4, ' ');
                call scan(_infile_,7,_n_,_error_, ' ');
                _error_=0;
                path = cats(parent, substr(_infile_, _n_));
                if "&user" = owner then
                        &user = ifc(substr(permission,2,3) ne '---', 'Y', 'N');
                else if group in (&groups) then
                        &user = ifc(substr(permission,5,3) ne '---', 'Y', 'N');
                else
                        &user = ifc(substr(permission,8) ne '---', 'Y', 'N');
                output;
        end;
        keep path &user;
proc print;
run;
filename id clear;
filename ls clear;
%mend;

%zhutou(user=hugo, dir=/home/test);
[/code:3ct3akwd][/quote:3ct3akwd]


老猪，你这个程序根据ls目录的访问权限来判断用户能不能访问是有问题的，我们可以用getfacl 来查看目录的详细访问控制，除了ls 出来的Permission外，还可能有些额外的设置，例如对某个特定的用户或者用户组赋予访问权限，那结果很可能是表面看他不能访问，但实际上是可以访问得到的

另外，请大伙帮我出出主意，帮帮我啦，好惨啊被上司催得

shiyiming

死猪头

shiyiming

老猪，我很感谢你，你已经帮了我一大把了，真心的谢谢你，这个问题我已经新开了张贴，把目录权限的部分输出贴上来供大家参考了，希望能解决这个问题，下次还向你请教哈，thanks so much