小编use*_*976的帖子

我需要这个程序的帮助.作为我项目的一部分,我需要创建一个目录.我正在使用系统函数来执行此操作,但后来被告知Perl有一个名为mkdir的内置函数.

我在Ubuntu 10.04上.问题mkdir似乎并不是必要的.

它创建目录但权限不同.这是我创建目录的函数:

sub createDir {
       my ($dir,$perm) = @_;
       unless(-d $dir) {
               mkdir $dir,$perm or die "$!";
       }
}

我在我的程序的许多部分称它为:

createDir('.today','0755');

目录.today被创建,但问题是权限,它没有0755权限.

我究竟做错了什么？

我的Perl细节是:

$perl -v

This is perl, v5.8.8 built for x86_64-linux-thread-multi