Re[2]: 'Inverse' chmod?

Thanks to all for the rapid-fire primer in perl. Come to think it, I now know _more_ about Perl than Hillary knows about New York! g -- Bob Bernsteinhttp://members.home.net/ruptured-duck at Esmond, Rhode Island, USA --==++*++==-- RMS's curmudgeon-like

Re[2]: 'Inverse' chmod?

Carl Mummert [EMAIL PROTECTED] wrote: perl -e 'printf %#o, ((stat(FILENAME))[2] 0x1ff)' Great! It works fine from the command line, but I tried it in a shell script with no luck. #! /bin/bash perl -e 'printf %#o, ((stat($1))[2] 0x1ff)' Needless to add I know as much about shell scripts

Re: Re[2]: 'Inverse' chmod?

--cut #!/usr/bin/perl foreach (@ARGV) { printf %#o %s \n, (stat($_))[2] 0x1ff, $_; } --cut CaRL