in perl、可変値をハッシュ要素として使用する方法

Question

私はPerlを使い慣れていないので、Perlの学習ブックでその質問の答えを見つけることができません。

my @loop=("op1_sel","op2_sel"); 

と2つのハッシュテーブルのように：

my %op1_sel=(
     "bibuf","000", 
     "self","101" 
      ); 
my %op2_sel=(
     "zero","1", 
     "temp","0" 
      ); 

は、今私は、特定のハッシュテーブルのためのループにループ内で変数を使用したい

は、例えば私のような配列を持っています キー例えば：

foreach(@loop) 
{ 
    print ${$_}{"bibuf"} ; 
} 

しかし、それは動作していないようだ、私はを知っています部分が間違っている、誰でも私にどのように教えてくれますか？ これを修正するには？

Answer 1

$ {$ foo}構文を使用して、字句（my）変数を参照することはできません。パッケージ変数の場合はおそらくそれを動作させることができますが、これは正しい方法ではありません。

これを行う正しい方法は、ネストされたデータ構造を使用することです。

私はそれを行う2つの明白な方法を見ることができます。あなたは、内側のハッシュを直接含むop_selの配列を作るか、ハッシュのハッシュを作成し、その中にインデックスを付けることができます。

だから、 "ハッシュの配列"：

my @op_sels = (
    { 
     bibuf => '000', 
     self => '101', 
    }, 
    { 
     zero => '1', 
     temp => '0', 
    }, 
); 

for my $op (@op_sels) { 
    print $$op{bibuf}; 
} 

と "ハッシュのハッシュ"：

my %op_sels = (
    1 => { 
     bibuf => '000', 
     self => '101', 
    }, 
    2 => { 
     zero => '1', 
     temp => '0', 
    }, 
); 

for my $op_key (sort keys %op_sels) { 
    print $op_sels{$op_key}{bibuf}; 
} 

Answer 2

これにevalを使用できます。

foreach(@loop) 
{ 
     eval "\%var = \%$_"; 
     print $var{"bibuf"} ; 
} 

Answer 3

ネストされたハッシュを使用します。このように：

my %op; 
# put a hash reference into hash, twice 
$op{op1_sel} = \%op1_sel; 
$op{op2_sel} = \%op2_sel; 

# later ... 
foreach (keys %op) { 
    print "bibuf of $_: $op{$_}->{bibuf}\n"; 
}; 

あるいは、長い話を短く、ちょうど

my %op = (
    op1_sel => { 
     foo => 1, 
     bar => 2, 
     # ... 
    }, 
    op2_sel => { 
     # ... 
    }, 
}; 

{}構築物は、無名ハッシュへの参照を作成し、ネストされたデータ構造を扱う標準的な方法です。

perldoc perldscも参照してください。