perl - 如何将 html 表单的 perl 哈希转换为一系列标量变量？

Question

我正在从 html 表单获取输入。有一堆文本输入，因此是一堆键值对。你看，当一个人有超过三对时，我目前的方法是非常乏味的。
我想知道，是否有更有效的方法将散列转换为一系列标量变量？我希望键是变量名，设置为键的值。
我对 perl 比较陌生，如果这是一个愚蠢的问题，我很抱歉。

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI qw(:standard Vars);

print "Content-type: text/html\n\n";

my %form = Vars();

$hourly = $form{hourly};
$hours_w = $form{hours_w};
$rent_m = $form{rent_m};
#...

Answer 1

您可以使用哈希切片一次分配给多个变量:

my ($hourly, $hours_w, $rent_m) = @{$form}{qw(hourly hours_w rent_m)};

动态创建变量需要 eval() .