如何在 Perl 中将名称-值对作为参数传递

Question

我认为这是非常基本的 Perl 问题，但我没有解决。

我正在使用 LWP::UserAgent 包在 perl 脚本中构建 post 请求。 代码如下：

my $urlStr = "http://localhost/testproj/AServlet";
my $postDataStr = "{name => \'ankur434\'}";
my $response = $ua->post($urlStr, $postDataStr);

上面的代码不起作用&给出以下错误 -

<Dec 6, 2010 3:15:54 PM IST> <Error> <HTTP> <BEA-101215> <Malformed Request "/testproj/AServlet". Request parsing failed, Code: -1>

但是，当我直接将 postDataStr 的值传递给 post 方法时，它工作得很好，如下所示：

my $response = $ua->post($urlStr, {name => 'ankur434'});

我尝试了一些选项，例如使用反斜杠（\{）转义 { 但没有任何效果...

任何人都可以提出建议吗？谢谢！

Answer 1

{name => 'ankur434'}

是一个哈希引用。

"{name => \'ankur434\'}"

正如您的变量名称所示，是一个字符串。
Perl 不会自动将后者转换为前者。
您似乎有这样的印象：在 Perl 中，只有字符串可以分配给变量或传递给子例程。
事实并非如此。只需使用

my $urlStr = "http://localhost/testproj/AServlet";
my $postData = {name => 'ankur434'};
my $response = $ua->post($urlStr, $postData);