Hi, I would like to ask if someone could help me to shorten this process.
If example i will have a thousand files and i want to get there permisions. pls help.

$ sh researcher2.sh
rm /home/aris/logs/logna
rm a12
for i in `aclget /usr/bin/uname`
do
grep -e $i ownership | awk '{print $1}'
done > a12
echo /usr/bin/uname has the permission of `cat a12` > /home/aris/logs/logna

rm a12
for i in `aclget profile`
do
grep -e $i ownership | awk '{print $1}'
done >> a12
echo profile has the permission of `cat a12` >> /home/aris/logs/logna

rm12
for i in `aclget cron.sh`
do
grep -e $i ownership | awk '{print $1}'
done >> a12
echo cron.sh has the permission of `cat a12` >> /home/aris/logs/logna

clear
cp logna /home/aris/a/orig
cat /home/aris/logs/logna

this is the output :

/usr/bin/uname has the permission of 5 5 5
profile has the permission of 1
cron.sh has the permission of 1 7 7 7
------------------------------------------------------------------------i already tried this one, but it didnt work

y=`cat test`
for x in `aclget $y`
do
grep -e $x ownership | awk '{print $1}' >> file122
echo $y permisions is `cat file122` >> file1
done
cat file1

$ cat test
/usr/bin/uname
profile
cron.sh

This is the value of ownership if you may ask.

$ cat ownership
1 --x
2 -w-
3 -wx
4 r--
5 r-x
6 rw-
7 rwx

#! /usr/local/bin/perl

open(DATA, "< test") || die "Unable to open file test\n";
while (<DATA>) {
        chomp;
        printf  "%s has permission %o \n", $_ , (stat($_))[2]& 0777;
}
close(DATA);
exit 0

if you have stat in your system (AIX?)

# stat -c "%a:%n" *

# find  /path -printf "%m:%p\n"

sir's,
thanks for the support, but only perl works w/ me. Currently there is no stat command in my aix. I really thank Sir Perderabo.

It is much better if it is purely shell script, no problem w/ perl,but this script will be the script to all of our servers. We know that diffrnt servers diffrnt perl.

perl does vary quite a bit between versions and this can cause portability problems. But I doubt that you will be able to find any perl version which cannot run that little script. It stays with just a few basic things. And you wanted speed. There is no way to come close to the performance of the perl script with a shell script.

#!/bin/sh
# assume no setuid,setgid bits set.
ls -l | awk '
BEGIN{
perm["rwx"]=7
perm["rw-"]=6
perm["r--"]=4
perm["-wx"]=3
perm["--x"]=1
perm["r-x"]=5
pern["-w-"]=2
}
{
 uperm = substr($1,2,3)
 gperm = substr($1,5,3)
 operm = substr($1,8,3) 
 printf "%s has permission: %s%s%s\n", $9,perm[uperm],perm[gperm],perm[operm]
}
'