Shell Programming and Scripting

About System and Perl: Sun Solaris 5.9 sparc, Perl 5.6.1

I've decided to use the perl file::find module to look for all the SETUID and SETGID files on my unix boxes. I wrote something like this: (I've shorted it a little to make it simple)

#!/opt/perl/bin/perl

use File::Find;
find \&wanted, "/";
sub wanted {

(($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = lstat("$_"));


if ($mode eq "34280") {
print "Mode = $mode\n";
system "ls -dl $_\n";
}



As you can see I am making an lstat call on each file. I'm reading the mode variable on each file to determine if it's a SETUID/SETGID or both.

However, each mode seems to differ. A file that is -rwsrwsrwx might have a mode of 36351 but a file with -rwsrwsrw- might have a file mode of 37987. Maybe this isn't the best way to do this. Can someone show me a better way to do this or explain how I get a list of mode numbers in Solaris. I don't want to use the unix find because it's to damn slow. Perl file find is fast and I prefer to us it.

Thanks,
x

The answer is in this page:

http://perldoc.perl.org/functions/stat.html

Some hints:
- use Fcntl ':mode';
- use the S_I* named constants;
- Bitmasking with the '&' operator.