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

发布时间：2020-12-16 06:17:00 所属栏目：大数据来源：网络整理

导读：我有一个小的PSGI应用程序,它从表单上传并将其传递给另一个脚本进行处理： #!/usr/bin/perluse strict;use warnings;use Plack::Request;use HTTPStatusCode;my $app = sub { my $req = Plack::Request-new(shift); my $content; if (keys %{$req-uploads})

我有一个小的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？

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!