Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^2: state and file perms confusion

by neilwatson (Curate)
on Aug 04, 2012 at 01:51 UTC ( #985373=note: print w/ replies, xml ) Need Help??


in reply to Re: state and file perms confusion
in thread state and file perms confusion

I'm missing something fundamental.

print "mode=".$mode."\n"; printf "printf are %04o\n", $mode; printf "Permissions are %04o\n", $mode & 07777; ..produces mode=33188 printf are 100644 Permissions are 0644
What am I seeing? How can store the number in a scalar rather than printing it?

Neil Watson
watson-wilson.ca


Comment on Re^2: state and file perms confusion
Download Code
Re^3: state and file perms confusion
by Kenosis (Priest) on Aug 04, 2012 at 02:18 UTC

    What am I seeing?

    33188 decimal = 100644 octal (first printf) 07777 octal = 0000111111111111 binary (mask)-| +- & (bitwise AND) 33188 decimal = 1000000110100100 binary (mode)-| 0644 octal = 0000000110100100 binary (printf after mask) ^^^^ | + - file type masked out

    How can store the number in a scalar rather than printing it?

    use Modern::Perl; my $mode = 33188; my $modeResult = sprintf '%04o', $mode & 07777; say $modeResult; # prints 0644
Reaped: Re^3: state and file perms confusion
by NodeReaper (Curate) on Aug 04, 2012 at 02:27 UTC
Re^3: state and file perms confusion
by Tanktalus (Canon) on Aug 04, 2012 at 13:55 UTC

    There aren't a lot of use cases for storing an octal "number" in a scalar. There are some, but they're all to do with formatting output, not actual use as a number.

    If your goal is to use this for chmod, you have to realise that it won't work. If you do this:

    $mode = sprintf "%o", 420; # $mode = 644 chmod $mode, $file;
    you'll actually be doing the same thing as this:
    chmod 01204, $file; # 01204 octal == 644 decimal
    Definitely not what you wanted. Leave the number as-is if you plan on using it in chmod. Note that the following lines are equivalent:
    # 1. octal number chmod 0644, $file; # 2. decimal number chmod 420, $file; # 3. number in a scalar $mode = 0644; chmod $mode, $file; # 4. number in a scalar (from decimal) $mode = 420; chmod $mode, $file; # 5. number with bitmasks $mode = 0666 & ~022; # like umask chmod $mode, $file; # 6. decimal with bitmasks $mode = 438 & ~022; # 438 == 0666 chmod $mode, $file;
    So, to answer your question, the number is already in the scalar. You don't actually need to do anything about it.

    And, if you use $mode = sprintf "%o", $mode;, remember what you just did: you took a number, you printf'd it into a string, and put that back in $mode. So $mode no longer carries a number but a string. Perl will try to force it back to a number if that's what you try to do, but it won't be the number you started with.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2014-10-31 05:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (214 votes), past polls