perl - 使用 PSGI，是否可以更改上传文件的命名方式？

Question

我有一个小型 PSGI 应用程序，它从表单上传并将其传递给另一个脚本进行处理：

#!/usr/bin/perl

use strict;
use warnings;

use Plack::Request;
use HTTPStatusCode;

my $app = sub {
    my $req = Plack::Request->new(shift);

    my $content;
    if (keys %{$req->uploads}) {
        $content = do_something_with_upload($req);
    } else {
        $content = display_form();
    }

    return [
        HTTPStatusCode->SUCCESS,
        [ 'Content-type', 'text/html' ],
        [ $content ],
    ];
};

该文件已成功上传，类似于/tmp/Fw8n6j0ICn.txt. 问题是，处理依赖于文件在上传时被命名。

是否可以更改文件的上传方式以便它们转到/tmp/Fw8n6j0ICn/original_name.txt？

Answer 1

filename您可以通过对象的方法检索原始文件名$request，因此您基本上可以将其复制$request->path到您想要的任何内容并处理该文件。