perl CGI将文件写入兄弟目录

Question

当前文件夹结构如下

/main/site/script.cgi

我希望能够在

处写一个文件

主/日志/ mylog.log

如果不给出绝对路径，我怎么能这样做呢？因为这可以部署到不同的服务器，我不希望每次部署时都要改变它。

Answer 1

要使用 relative 路径访问目录，您需要先建立该路径相对于到的路径。这意味着您需要找出当前工作目录用于运行CGI脚本的内容。

如果您将此程序添加到服务器并在浏览器上调用它，您将看到该服务器应用于其所有CGI程序的当前工作目录。

use strict;
use warnings;

use CGI ':standard';
use Cwd 'getcwd';

print header('text/plain');

printf "Current working directory: %s\n", getcwd;

例如，如果您发现当前工作目录为/main/site，则可以使用路径../logs/mylog.log创建文件。