perl - Perl 中的权限被拒绝问题 - 需要解决方案

Question

我在使用 Perl 创建目录时遇到问题：

$country = 7;
$city = 12;   
$uploadFolder = "/opt/v-hosts/user/html/images/h_photos/ls";
$destination = $uploadFolder;
mkdir($destination) if(!-e $destination);
$destination .= "/$country";
mkdir($destination,0755) if(!-e $destination);
$destination .= "/$city";
mkdir($destination,0755) if(!-e $destination);

当我尝试执行此代码时，它应该创建以下目录：

/opt/v-hosts/user/html/images/h_photos/ls/7/12

不幸的是，代码返回错误：

mkdir /opt/v-hosts/user/html/images/h_photos/ls/7：/opt/v-hosts/user/epbin/ls.cgi 第 1376 行的权限被拒绝。\n

我尝试将ls文件的权限更改为777，但没有解决问题。

Answer 1

这不是 Perl 错误。/opt文件夹或某些子文件夹不可由负责 Apache 或 CGI 进程的系统用户写入。

$ perl -e 'use File::Path; $d=22; $city=7; mkpath "/tmp/moo/fooo/$city/$d";'
$ file /tmp/moo/foo/7/22
/tmp/moo/foo/7/22: directory

要修复您的权限，请使用chown. 例如：

$ ssh localhost chown apachDaemonUser /tmp/random