Perlのハッシュキー名のカウンタ変数を使用

Question

私は各フィールド名がキーになるハッシュとして入ってくるHTMLフォームフィールドデータを持っています&フィールド値はハッシュ値...あなたの標準CGIモジュールの出力から：

my $query = new CGI; 
my %formdata = $query->Vars; 

今回私は、各数字の接尾辞（「NAME2「の」NAME1」...「SIZE1」「size2に」など）を持つ複数のフォームフィールドのコレクションで働いています。これよりも数字順に、それらのグループをループするためのカウンタを使用するより良い方法はありますか？

for (my $i = 1; $i < 10; $i++) { 
    print " Name $i: " . $formdata{"name$i"} . "\n"; 
    print " Size $i: " . $formdata{"size$i"} . "\n"; 
} 

...これは悪いことではありませんが、構文が簡単ですか？私。このような（しかし、これは動作しません - は、パッケージまたはオブジェクト参照なしでメソッド「名前」を呼び出すことはできません）：

print " Name $i: $formdata{name$i}\n"; 

Answer 1

明白な解決策は動作しません：

print " Name $i: $formdata{"name$i"}\n"; 

0123：しかし qq演算子（ qq{...}または qq(...)または qq/.../または任意-あなたのような）と実際の二重引用符 "..."のセットのいずれかを交換することによって固定することができます。

"Quote and Quote-like Operators" in the perlop man-pageを参照してください。

Answer 2

私は通常、フォーム名プレフィックスに基づいてキーのリストを作成することでこのようなことを行います。たとえば、

my @numbers = sort map { /name(\d+)/ } keys %formdata; 
foreach my $num(@numbers) { 
    print " Name $num: ", $formdata{ 'name' . $num }, "\n"; 
    ... 
} 

これは、任意の数のフォーム要素を処理するという利点があります。

Answer 3

"で区切られた文字列に"を使用する場合は、それをエスケープします。

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";