如何在 Perl 的条件下访问散列的散列

Question

我有这样的代码：

use Data::Dumper;
my %hash = (
          'chrX' => {
                      'b' => [
                               '-51811268 210',
                               '-51810794 350',
                               '-51809935 298'
                             ],
                      'f' => [
                               '51929018 210',
                               '51929492 350',
                               '51930351 298'
                             ]
                    }
        );




  foreach my $cnam ( keys %hash  ) {
             my @lpos_f = ();          
             my @lpos_b = ();          



            if ( $hash{$cnam}{"f"} ) {
                @lpos_f = @{ $hash{$cnam}{"f"} }; 
                print "+\n";              
                print Dumper \@lpos_f;    

            }
            elsif ( $hash{$cnam}{"b"} ) {
                @lpos_b = @{ $hash{$cnam}{"b"} }; 
                print "-\n";              
                print Dumper \@lpos_b;    
            }


    }

为什么它没有在每个 ELSIF 条件下提供打印输出，例如 它给了这两个。

     +
     [
     '51929018 210',
     '51929492 350',
     '51930351 298'
     ];

    -
    ['-51811268 210',
     '-51810794 350',
     '-51809935 298'
    ];

目前它只给出“+”输出

Answer 1

因为%temp 不是%hash。 use strict 会告诉你的。

此外，您不能同时获得if / else。要么条件为真，你得到第一部分，要么条件不成立，你得到其他部分。 （使用elsif，第二个条件也可能不成立，你什么也得不到）。