有没有一种巧妙的方法将 Perl 哈希序列化为 HTML 查询字符串

Question

我有一个使用 CGI 的 perl 脚本。

浏览器用一些参数调用它。

我想获取这些参数，修改其中一些参数，然后发回带有表示修改后的参数的新查询字符串的重定向。

我知道我可以这样做，就像这样：

my $cgi = CGI->new()
my %vars = $cgi->Vars
$vars{'modify_me'} .=' more stuff';

my $serialized = join '&', map {$_.'='.$cgi->escapeHTML($vars{$_})} keys %vars;

然而，这只是感觉它可能缺少一些东西。此外，它不执行任何处理多值参数的操作。谁知道它还能做什么。

那么，有没有一个模块可以解决这个问题呢？我对重新发明一个更有才华的工匠制造的轮子不感兴趣。正确的？

Answer 1

URI 模块 是你的朋友。它有一个 query_form 方法，该方法采用参数的 hash、hashref 或 arrayref 并从中生成查询字符串。

它将为您对您的数据进行 URL 编码（请注意，您确实希望对其进行 URL 编码而不是 HTML 编码）。

所以你可能会遇到类似的情况：

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use URI;

my $q = CGI->new;

my @data = map {
        my $name = $_;
        my @values = $q->param($name);
        my $value;
        if (scalar @values == 1) {
            ($value) = @values;
        } else {
            $value = \@values;
        }

        if ($name eq "foo") {
            $value = "replaced";
        }
        ($name, $value);
    } $q->param;

my $uri = URI->new('http://example.com/myAlternative.cgi');
$uri->query_form(\@data);

print $q->redirect(
    -uri=> $uri,
    -status => 301
     );

Answer 2

您是否看过 Data::URIEncode或 URI::QueryParam？

Answer 3

事实证明，有一种方法可以仅使用 CGI 模块来满足我的特定需求。然而，其他答案涵盖了更广泛的需求，即序列化任意哈希。

如果您想修改传入参数，然后使用修改后的参数创建指向同一脚本的链接，您可以执行以下操作：

my $params = $cgi->Vars;

$ Modify the values in hash that $params references

my $new_url = $cgi->self_url(); # URL with modified parameters