我不能用Perl打印键和值

标记作为数组而不是散列返回。因此,您正在考虑这样做,而是迭代它们:

foreach my $tag (@$name) {
    my $key = $tag->{Key};
    my $val = $tag->{Value};
    print "$key => $val\n";
}

• $name 是对包含哈希引用的数组的引用。
• @$name 和 @{$name} (等效表示) $名称 参考文献。
• ${$name}[0] 和 $name->[0] .
• ${$name}[0]{'Key'} , $name->[0]->{'Key'} 等 (等效表示) 'Key'

因此,以下内容将迭代所有数组和哈希元素:

foreach my $hashref ( @{$name} )
{
    foreach my $key ( sort(keys(%{$hashref})) )
    {
        printf("%s => %s\n",$key,$hashref->{$key});
    }
    print "\n";
}

,更简洁(而且可以说是不可理解的):

printf("%s\n",join("\n", map {
    my $h = $_;
    join(', ', map { sprintf('%s=%s',$_,$h->{$_}) } sort(keys(%{$h})) );
} @{$name} ));

变量的数据结构转储 $name

您可以使用循环输出感兴趣的数据,不要忘记取消引用 $名称

use strict;
use warnings;
use feature 'say';

my $name = [
        {
            'Key' => 'Name',
            'Value' => 'fl-demo'
        },
        {
            'Value' => 'FL',
            'Key' => 'state'
        }
    ];
    

say "$_->{Key} = $_->{Value}" for @$name;

输出

Name = fl-demo
state = FL