perl hash confusion

Question

下の式に間違いがありますか？

my $container; 
    while (my $val = $details->next()){ 
      $container->{'total_vals'} += 1; 
      my $section_name= 'some string from some db query'; 
      $container->{"$section_name"}->{'total_vals'} += 1; 
    } 
    print Dumper $section; 

上記のコードは、strictが使用されていない場合に動作します。no strict 2番目のキーには有効な値が含まれていません。厳しいサブが使用されている場合、私は以下の警告を受け取ります。私が逃しているものを私に教えてください。

Can't use string ("140360537348481") as a HASH ref while "strict refs" in use at source.pm line 61."

Answer 1

これはおそらくいくつかの点で$container->{"$section_name"} = "140360537348481";を設定することを意味します。あなたは$container->{"$section_name"} = {};をしたはずです。