无法使用权​​限777在perl中创建新目录

Question

我正在尝试创建一个每个人都可写的目录 这是我用它创建目录的命令类型 if（！-e“/ mnt / imports / user”）{ mkdir（“/ mnt / imports / user”，0777）或throw（“无法生成/ mnt / imports / user $！”）; } 但这是我获得的目录特权 drwxr-xr-x 2 lec ensembl 8192 6月4日15:15 briggsae_new_2 目录mnt具有755权限，而导入具有777权限。 有谁知道我做错了什么？

Answer 1

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

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