如何使用perl遍歷物件內的哈希陣列

我正在嘗試遍歷存盤為“Person”物件的“_skills”屬性的哈希陣列，但遇到了麻煩。

測驗1.pl

my $person = new Person( "Hubert", "Blu",
    [
       {"name" => "Python", "Weight" => 80, "group","IT SKILLS", "id"=>0002},
       {"name" => "Magic", "Weight" => 100, "group", "MISC SKILLS", "id"=>0001},
       {"name" => "JavaScript","Weight" => 70, "group"=> "IT SKILLS", "id"=>0004},
       {"name" => "Mage","Weight" => 100, "group"=>"JOB TITLE", "id" =>0003},
       {"name" => "Assassin", "Weight" => 85, "group"=>"JOB TITLE"}
    ]
);

和 Person.pl

sub new {
    my ($class,$first_name,$last_name,@skills) = @_ ;
    my $self = {};
    $self->{"_first_name"} = $first_name;
    $self->{"_last_name"} = $last_name;
    @{$self->{"_skills"}} = @skills;
    # Print all the values just for clarification.
    print "First Name is $self->{_first_name}\n";
    print "Last Name is $self->{_last_name}\n";
    print "Skills : " . Data::Dumper::Dumper($self->{_skills}) . "\n";


    print"---SKILLS---\n";
    my $i = 1;
    foreach my $skill_set (@{$self->{_skills}}) {
        print "skill ".$i .": \n";
        $i  ;
        #print Data::Dumper::Dumper($skill_set) . "\n";
        print "$skill_set->{'_first_name'}";
    };
    bless $self, $class;
    return $self;
}

第一個轉儲顯示了陣列，它看起來很好。回圈內的第二個轉儲再次顯示整個陣列，它只回圈一次，然后完成以下錯誤

Not a HASH reference at /home/izoom/PerlTrainingGround/LeeR/lib/Person/Person.pm line 26.

被困了幾個小時，任何幫助一如既往地受到贊賞！

uj5u.com熱心網友回復：

您將三個引數傳遞給newplus 呼叫者。最后一個是對陣列的參考。這意味著@skills最終會得到一個元素，其值為該參考。

my $person = new Person( "Hubert", "Blu",
    [
       {"name" => "Python", "Weight" => 80, "group","IT SKILLS", "id"=>0002},
       {"name" => "Magic", "Weight" => 100, "group", "MISC SKILLS", "id"=>0001},
       {"name" => "JavaScript","Weight" => 70, "group"=> "IT SKILLS", "id"=>0004},
       {"name" => "Mage","Weight" => 100, "group"=>"JOB TITLE", "id" =>0003},
       {"name" => "Assassin", "Weight" => 85, "group"=>"JOB TITLE"}
    ]
);

應該

my $person = new Person( "Hubert", "Blu",
   {"name" => "Python", "Weight" => 80, "group","IT SKILLS", "id"=>0002},
   {"name" => "Magic", "Weight" => 100, "group", "MISC SKILLS", "id"=>0001},
   {"name" => "JavaScript","Weight" => 70, "group"=> "IT SKILLS", "id"=>0004},
   {"name" => "Mage","Weight" => 100, "group"=>"JOB TITLE", "id" =>0003},
   {"name" => "Assassin", "Weight" => 85, "group"=>"JOB TITLE"}
);

要么

    my ($class,$first_name,$last_name,@skills) = @_ ;

    @{$self->{"_skills"}} = @skills;     # Useless shallow array copy
       # -or-
    $self->{"_skills"} = [ @skills ];    # Same[1] but clearer
       # -or-
    $self->{"_skills"} = \@skills;       # No copy of elements

應該

    my ($class,$first_name,$last_name,$skills) = @_ ;

    @{$self->{"_skills"}} = @$skills;    # Shallow array copy
       # -or-
    $self->{"_skills"} = [ @$skills ];   # Same[1] but clearer
       # -or-
    $self->{"_skills"} = $skills;        # No copy of elements

1. 既然$self->{"_skills"}是undef在這一點上。

標籤：perl

上一篇：在執行以下代碼段時。我可以看到一個錯誤全域符號“$colors”需要明確的包名稱。必須列印鍵和值

下一篇：為什么在連接運算子后面的裸詞是Perl中的字串？