我有一堆 HTML 表单字段数据作为散列传入，其中每个字段名称成为键，字段值是散列值...您的标准 CGI 模块输出来自：
my $query = new CGI;
my %formdata = $query->Vars;
这次我正在处理多个表单域的集合，每个域都有一个数字后缀（“name1”“name2”...“size1”“size2”等）。有没有比这更好的方法来使用计数器按数字顺序循环遍历这些组？
for (my $i = 1; $i < 10; $i++) {
print " Name $i: " . $formdata{"name$i"} . "\n";
print " Size $i: " . $formdata{"size$i"} . "\n";
}
...这还不错，但有更简单的语法吗？ IE。像这样（但这不起作用 - 没有包或对象引用就无法调用方法“名称”）：
print " Name $i: $formdata{name$i}\n";
【问题讨论】：
明显的解决方案不起作用：
print " Name $i: $formdata{"name$i"}\n";
但可以通过用 qq 运算符（qq{...} 或 qq(...) 或 qq/.../ 或任何你喜欢的）替换任一组实际双引号 "..." 来修复：
print qq{ Name $i: $formdata{"name$i"}\n};
【讨论】：
"$formdata{$varname}" 有效。它实际上没有插入$varname；它只需要$varname 成为一个普通的字符串表达式——它就是——并使用该表达式的值作为键。请注意，即使在双引号之外，您也可以写 $formdata{$varname}；相反，您甚至可以在双引号内写$formdata{'name' . $i} 之类的内容。那有意义吗？所以qq{$formdata{"name$i"}} 没有做“双插值”；它只插入一次$i，并插入例如$formdata{'name6'} 恰好一次。
我通常通过根据表单名称前缀制作一个键列表来做这种事情。例如，
my @numbers = sort map { /name(\d+)/ } keys %formdata;
foreach my $num( @numbers ) {
print " Name $num: ", $formdata{ 'name' . $num }, "\n";
...
}
这具有适用于任意数量的表单元素的优势。
【讨论】：
sort，默认情况下使用 ASCIIbetical 字符串比较。您必须指的是sort { $a <=> $b } map ...，而不是简单的sort map ...。另外，我认为您应该通过编写/^name(\d+)\z/ 而不是/name(\d+)/，将您的正则表达式锚定到字符串开始和字符串结束。
如果您想在由" 分隔的字符串中使用"，请将其转义。
print " Name $i: $formdata{\"name$i\"}\n";
或者更改分隔符。
print qq{ Name $i: $formdata{"name$i"}\n};
或者避免使用"。
print " Name $i: $formdata{qq{name$i}}\n";
print " Name $i: $formdata{'name'.$i}\n";
printf " Name %s: %s\n", $i, $formdata{"name$i"};
print " Name $i: " . $formdata{"name$i"} . "\n";
【讨论】：