Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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

by merlyn (Sage)
on Sep 26, 2000 at 06:44 UTC ( [id://33978]=note: print w/replies, xml ) Need Help??


in reply to Re: How do I get all the permission flags on a file?
in thread How do I get all the permission flags on a file?

sub return_mode { my $mode = shift; my @modelist = (($mode & 7000)>>9, ($mode & 0700)>>6, ($mode & 007 +0)>>3, ($mode &0007)); return join('', @modelist); }
Hmm. Is that just a difficult (and incorrect, see "7000") way of doing this...?
sub return_mode { sprintf "%04o", (shift) & 07777; }

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
RE: RE: Answer: How do I get all the permission flags on a file?
by BastardOperator (Monk) on Sep 26, 2000 at 17:00 UTC
    Hmm. Is that just a difficult (and incorrect) way of being a human being...?

    Ya know Randall, the more I watch you, the more I dislike you. I guess it would have been way too difficult for you to simply say something like
    "A slightly shorter method would be ..., and you need to use 07777 for reason blah".
    Yeah, I could see how much that would strain you. Frankly Randall, your Perl skills are fabulous, but your people skills need work.

    What I'd like to know is why you didn't just offer that answer in the first place? You certainly gave a previous person his homework answer without thought, why wouldn't you have offered this up rather than what might have been an answer that this individual didn't get?

    I don't claim to be some perl guru, I'm completely self-taught and haven't been doing it but sparsely for about a year, I think that's probably the case for a lot of folks here. We can't all have the experience that you have. I pick up bits and pieces here and there, and this is the only way I've ever seen to do this, besides the fact that it's always worked fine for me. The funny thing is, I probably take criticism better than anyone I've ever met, but constructive criticism is different than sarcastic criticism.

    Please try to realize that we're not all guru's and some of us won't stand to be degraded.
      The funny thing is, I probably take criticism better than anyone I've ever met
      If you trigger on the words "difficult" and "incorrect", taking them personally in a way no other person I met has, I highly doubt your claim.

      It's not my intention to discredit you. In fact, I didn't care who wrote that post. What I saw was what I said... a series of difficult-to-get-right steps to accomplish what could be accomplished in a short sequence.

      And as for answering this to the original poster, as I view back up the thread, it's not even the right answer. The answer I gave earlier was much closer to what the original poster wanted. Your posting strayed further away, giving a mostly useless octal value where what was needed was simply taking the stat value, optionally anding it with 07777, and then handing that to chmod. That's what I said, and even though I didn't include code, it was more accurate and accomplished more than your detour, either original, or as I corrected it.

      So, I challenge your claim that you can take constructive criticism. I also challenge your claim that your answer was more useful than mine.

      Heck, you'll probably even see this post as another personal assault, when really I'm just trying to get you to see that you're being ineffective and distracting, although you get an A for effort. {grin}

      -- Randal L. Schwartz, Perl hacker

        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.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://33978]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2024-03-19 07:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found