无法在 perl 中创建具有权限 777 的新目录

Question

我正在尝试创建一个所有人都可以写入的目录 这是我创建目录的命令类型 if(!-e "/mnt/imports/user"){ mkdir("/mnt/imports/user", 0777) 或 throw("无法生成 /mnt/imports/user $!"); } 但这是我为目录获得的特权 drwxr-xr-x 2 lec ensembl 8192 Jun 4 15:15 briggsae_new_2 而目录 mnt 具有 755 权限，而 imports 具有 777 权限。 有谁知道我做错了什么？

Answer 1

umask 在您的系统上是 0022。你可以这样做：

 if(! -e "/mnt/imports/user"){ mkdir("/mnt/imports/user") && `chmod 777 /mnt/imports/user`}