perl - 如何从哈希引用中获取键和值？

Question

my $data = shift;
warn Dumper $data;    
$VAR1 = {

    'sessid' => '3c18e794b31c46eb0c....',
    'code' => '0',
    'message' => 'Authentication succeeded'

};

我想获取键和值。

我怎样才能做到这一点？

Answer 1

欢迎来到 StackExchange。

您应该在名为. each_ 例子：keysvaluesperldocperlfunc

while (my ($key, $value) = each %{ $data }) {
  print "key: $key; value: $value\n";
}