Re: Permission problem in creating directory!

[Corion]

See mkdir and umask. In short, the mkdir function honors $ENV{UMASK}. If you really intend to make the directory world-writable, I guess the following code will work:

my $old_umask = umask;
umask 0777;
mkdir $dump_dir
    or die "Couldn't create '$dump_dir': $!";
umask $old_umask;

[Fletch]

The umask is an attribute of the process (like its current working directory or nice level) and is manipulated by the system call of the same name. It's not related to the process' environment.</pedant>

(Well, it is part of the process' environment, but it's not contained in %ENV or char *env or what have you . . . :)

Update: And I just noticed, umask returns the previous value when you call it so you could just do my $old_umask = umask 077; in one swell foop.</nit>

[m.att]

my $old_umask = umask;
umask 0777;
mkdir $dump_dir
    or die "Couldn't create '$dump_dir': $!";
umask $old_umask;

This actually does the opposite of what the OP asked for. A permissive umask is a smaller number (IE: less bits turned on) than a non-permissive mask. Setting the umask to 0777 ensures that no permissions are assigned, regardless of what mode you set for mkdir (or if you leave it as the default, as above). The number in the umask is applied to the mode bits of a created file with the following logic:

MODE & ~MASK

So, for the mode bits 0777 and a umask of 0777:

perl -e'printf "%o\n", 0777 & ~0777' =>0 (or 0000)

For a umask of 0000:

perl -e'printf "%o\n", 0777 & ~0000' =>777 (or 0777)

By default (at least it is here), the umask is set to 022. If we use the logic above with this knowledge, we can see why the OP's mode argument to mkdir didn't take affect:

$ perl -e'printf "umask: %04o\n", umask; printf "mode: %04o\n", 0777; 
+printf "masked mode
: %04o\n", 0777 & ~umask'
umask: 0022
mode: 0777
masked mode: 0755
$

In short, the answer to the OP's question is to set the umask to 0. Note the following:

$ perl -e'umask 0; printf "umask: %04o\n", umask; printf "mode: %04o\n
+", 0777; printf "ma
sked mode: %04o\n", 0777 & ~umask'
umask: 0000
mode: 0777
masked mode: 0777
$ perl -e'umask 0; mkdir "FOO", 0777'
$ ls -dl FOO
drwxrwxrwx  2 matt matt 6 Apr 13 20:07 FOO
$

umask is slightly counter-intuitive, but I found that when I saw the boolean math it helped me to understand it much better. I hope this helps.

Best Regards

m.att

[Anonymous Monk]

Thank you, this really helped me!