第242页 创建和删除目录

创建目录操作符mkdir和Unix下的关键字一模一样。当然用法上，前者更像是函数：
mkdir 'fred', 0755 or warn "Can't make fred directory : $!\n";
#这里0755是以0开头的八进制数据表示的权限位。如果这个权限位需要来自用户输入的话，不加处理可能变成字符，如果强制解释为八进制数字的话，可以使用oct()函数
my ($name, $perm) = @ARGV;
mkdir $name, oct($perm) or die "Can't create $name : $!\n";    # oct()
Perl本身的基本功能只提供了删除空目录的rmdir方法。如果目录是非空的，就只能通过unlink先删除掉目录下的所有文件之后，再调用rmdir了。否则，rmdir会失败。但是，如果目录下面除了文件之外，还有子目录的话，这方案还是会失败。这时的解决方案就要参照Perl自带的File::Path模块了。
my $tmp_dir = "/tmp/scratch_$$";    #这里的$$和shell中的语义一样，也是表示唯一标识当前进程的号码
mkdir $tmp_dir, 0700 or die "Can't create $tmp_dir : $!\n";
unlink glob "$tmp_dir/* $tmp_dir/.*";    #删除$tmp_dir下的所有文件，这里如果有目录的话，那unlink就失败了。
rmdir $tmp_dir;    #同理，如果上面失败了，这里也失败了（因为$tmp_dir非空）。