RE: RE: RE: RE: Answer: How do I get all the permission flags on a file?

[BastardOperator]

UPDATE: Please don't upvote this, it's not worthy of that, downvoting is fine (for obvious reasons), but not upvoting

First off Randall, have you tried my method? I can't find where it comes up as incorrect, I use yours on /usr/bin/login, it returns 4511, I use mine on /usr/bin/login, it returns 4511, am I missing something? If so, please tell me. Also, I _never_ said mine was more useful than yours, I simply said that it has been working for me. If my answer will not accomplish what this individual set out to do, please tell me how (after trying my answer). Yes, it wasn't as pretty as yours, and yes, I've even substitued yours for mine in some programs, but as the Perl mantra states TMTOWTDI. Randall, what you have to understand is that people view the world differently, I don't know what you're thinking when you write a reply, whether you have bad or good intentions. All I know is how I view your response, and to me I see it as a subtle attack. I stand by my claim that I can take constructive criticism better than most, but as I said, I don't view this as constructive. I've done and seen too much in my life to not call a spade a spade. I only have to watch you for a week and I know you, I've met too many people like you not to recognize it. I've seen you respond to others similarly. They may not have responded, they may be use to it. I'm not, nor will I ever be. You can tell people that you have good intentions, but I don't see it. I see a person who is very concerned about others stealing their thunder. I see a person who says what they feel subtly and ends it with a {grin} so as to disguise the true feeling behind it. At least I can lay mine on the table, --'s or not, no matter to me.

[merlyn]

sub return_mode {  
    my $mode = shift;  
    my @modelist = (($mode & 7000)>>9, ($mode & 0700)>>6, ($mode & 007
+0)>>3, ($mode &0007));  
    return join('', @modelist);  
}  

print return_mode (07777), "\n";

prints 5777 on my machine. Nuff said. Your code has 7000 where it needs 07000.

-- Randal L. Schwartz, Perl hacker