Perl 中hash嵌套声明实例

my %hash_port_props = (

            "port_1" => {"rw" =>0, "unicast" => "broadcast", "src_ip"=> '10.0.0.1', "dst_ip"=> '0.0.0.2'},
            "port_2" => {"rw" =>0, "unicast" => "unicast", "src_ip"=> '10.0.0.1', "dst_ip"=> '10.0.0.2'},
);

my $one_port = $hash_port_props{"port_1"}{"src_ip"};
print "one_port is $one_port\n";