如何在Windows弹出窗口的perl上获取文件名？

Question

我正在使用 json 打开用户弹出窗口。 我曾经在 php 上使用 basename( $_FILES['userfile']['name'] ) ，如何在 perl 上做到这一点？

服务器端代码：

#!/usr/bin/perl
use CGI;

print "Content-type: text/html; 
Cache-Control: no-cache;
charset=utf-8\n\n";

@allowedExtensions =("jpg","tiff","gif","eps","jpeg","png");

my $q = CGI->new();

my $filename = $q->upload('userfile');

print "file name is $file_name";

客户端代码：

var post_obj = new Object();

new AjaxUpload('upload_attachment_button', {
    action: 'upload.cgi',
    type: "POST",
    data: post_obj,

    onChange: function() {},
    onSubmit: function() {
      $("#upload_attachment_button").addClass('ui-state-disabled');
      $("#upload_proj_message").html('<span> class="loading">uploading...</span>');
    },
    onComplete: function(file, response) {
      $("#upload_attachment_button").removeClass('ui-state-disabled');
      alert(response);
    }
});

Answer 1

看起来您正在尝试获取用户上传的文件的名称。如果您使用的是 CGI 模块，那么这里是解决方案：

use CGI;
my $q = CGI->new();

my $filename = $q->param('userfile'); ## retrive file name of uploaded file

来自 手册：

不同的浏览器将返回稍微不同的名称。某些浏览器仅返回文件名。其他人使用用户计算机的路径约定返回文件的完整路径。无论如何，返回的名称始终是用户计算机上文件的名称，与 CGI.pm 在上传假脱机期间创建的临时文件的名称无关（见下文）。

更新：

抱歉，之前没注意到。请在脚本开头添加use strict;。它会强制您声明所有变量。您会在 print 语句中看到错误：

print "file name is $filename"; ## must be $filename

要声明 @allowedExtensions 只需在首次使用之前添加 my：

my @allowedExtensions =("jpg","tiff","gif","eps","jpeg","png");

另外我相信您不需要打印 HTTP 标头时在行尾添加 ;：

print "Content-type: text/html 
Cache-Control: no-cache
charset=utf-8\n\n";

并且请始终使用 strict。它将在未来为您节省大量时间。