perl - 如何动态构建 LWP::UserAgent 表单参数？

Question

我想构建一组用于动态 HTTP POST 的表单参数，但我不确定如何访问/构建 LWP::UserAgent 动态使用的数据结构。

典型的示例代码将此结构作为请求传递。

my $response = $browser->post(
  'http://example.com/postme',
  [
    'param1'  => 'value1',
    'param2' => 'value2'
  ],
);

我有一组参数名称和值存储在散列中，我想从我的散列数据构建方括号中的结构。那是什么结构，我怎样才能做我想做的事？ (如您所知，我不是 perl 专家!)

Answer 1

方括号构成一个 arrayref，但在这种情况下，post 方法接受 arrayref 或 hashref。所以你可以这样做:

my %params;
$params{param1} = 'value1'; # store parameters into %params here
my $response = $browser->post('http://example.com/postme', \%params);

阅读perlreftut有关引用资料的介绍，以及 perlref了解更多详情。