使用 CGI-perl 将 post 数据写入文件

Question

我正在开发纯 html/javascript 中的客户端程序，该程序能够将文件夹、文件及其内容作为参数发送到目标 cgi 脚本（即 saveFile.cgi ）的发布请求中。

我能够从发布请求中检索数据，但我无法在脚本中使用这些表单数据创建文件/文件夹，但我可以使用 print 打印这些值。

另外，我可以使用我试图从发布请求中检索的确切字符串文字来创建文件/文件夹。我不明白我哪里出错了。

我在windows环境下编程：

客户代码：

var data = {
             "folder": variant,
             "file"  : "metadata.json",
             "content": response
           };

           $.post('../cgi-bin/demos/saveJSON.cgi', data, function(resp) {
                  // Do something with the request
           }, 'json');

服务器端/CGI 脚本：

#!C:\perl\bin\perl.exe -wT
    use CGI;
    use JSON;

    print "Content-type: text/html\n\n";

    $query = new CGI;

    $folder  = $query->param("folder");
    $file    = $query->param("file");
    $content = $query->param("content");

    #print "Folder " . $folder ."<br/>";
    #print "File " . $file ."<br/>";
    #print "Content " . $content ."<br/>";

    mkdir($folder, 0700) unless(-d $folder);
    open(OS,">$folder/$file") or die("Cannot write to file");
    print OS $content;
    close(OS);

Answer 1

我无法在 脚本，但我可以使用 print 打印这些值

几乎可以肯定，问题在于您的网络服务器没有权限在您尝试创建文件的目录中创建文件。您可以通过改进 open() 调用的错误检查并查看 Web 服务器错误日志来检查该理论。

# $! contains the details of the error
open(OS,">$folder/$file") or die("Cannot write to file '$folder/$file': $!");

然后，您必须更改您的处理，以便写入您拥有正确权限的目录。

其他一些建议。

• 始终包含use strict 和use warnings。
• 使用my $query = CGI->new 而不是$query = new CGI。
• 对open() 使用词法文件句柄和三个参数
  • open my $os_fh, '>', "$folder/$file" or die "..."
• 考虑从 CGI 转移到现代解决方案，例如 Dancer。

Answer 2

我不知道你是否可以在你的服务器上安装模块。如果是，我肯定会建议您使用一些抽象层，例如 IO::All。

...
$folder  = $query->param("folder");
$file    = $query->param("file");
$content = $query->param("content");

# very minimal folder and filename sanitizing: allow only 
# alphanumeric characters. No slashes!
$folder =~ s{[^a-z0-9_\-.]}{}gi;
$file   =~ s{[^a-z0-9_\-.]}{}gi;

use IO::All;
io( $folder )->mkdir;
io( "$folder/$file" ) < $content; # yes, the < is like "put into"

IO::All 最酷的地方在于它隐藏了对文件句柄、缓冲区等的处理，并且在出现问题时会因错误而死 - 例如无法创建目录时。

见：IO::All on metacpan

消毒非常少，不允许子目录，但你不希望任何人写发送类似的东西

{ 
    folder:  "/var/www-data/.evil", 
    file:    "hacker.zip",
    content: "..someting really evil.."
}

将此上传到您的服务器。

无论如何，要安装 IO::All 使用任何一个

cpan IO::All

或在 Debian/Ubuntu 上

sudo apt-get install libio-all-perl