배열에 해시 추가하기

Question

perl에서 해시 배열을 생성하려고하는데 인쇄 된 유일한 것이 입력 된 마지막 해쉬이므로 인쇄하는 데 문제가 있습니다.

해시 테이블을 배열에 푸시하는 방법에 문제가 있습니까? 또한 배열 (해시 테이블)의 내용을 제대로 인쇄하려면 어떻게해야합니까?

print "\n===========SUBJECTS===========\n"; 
my $exit = "n"; 
until ($exit eq "y") { #loops until user enters 'y' 
    print "Course Number: "; 
    my $cNum = <STDIN>; 
    chomp($cNum); 

    print "Course Credit: "; 
    my $cCred = <STDIN>; 

    print "Grade: "; 
    my $cGrade = <STDIN>; 

    %subHash = (
     "courseNumber" => $cNum, 
     "courseCredit" => $cCred, 
     "courseGrade" => $cGrade, 
    ); 
    push @subList, \%subHash; 
    $subCount += 1; 

    print "\nFinished adding subjects?\n[y/n]\nCHOICE: "; #asks for subject input termination 
    $exit = <STDIN>; 
    chomp($exit); 
    print "\n==============================\n"; 
} 

Answer 1

답변은 이미 제공되었습니다. 숙제에 복사하여 붙여 넣기가 어려워요?

use strict; 
use warnings; 

my @subList; 
print "\n===========SUBJECTS===========\n"; 
my $exit = "n"; 
until ($exit eq "y") { #loops until user enters 'y' 
    print "Course Number: "; 
    my $cNum = <STDIN>; 
    chomp($cNum); 

    print "Course Credit: "; 
    my $cCred = <STDIN>; 
    chomp($cCred); 

    print "Grade: "; 
    my $cGrade = <STDIN>; 
    chomp($cGrade); 

    push @subList, { 
     "courseNumber" => $cNum, 
     "courseCredit" => $cCred, 
     "courseGrade" => $cGrade, 
    }; 

    print "\nFinished adding subjects?\n[y/n]\nCHOICE: "; #asks for subject input termination 
    $exit = <STDIN>; 
    chomp($exit); 
    print "\n==============================\n"; 
} 

foreach my $hashref (@subList) { 
    while (my ($key, $val) = each %{$hashref}) { 
     print "$key => $val\n"; 
    } 
    print "-----\n"; 
} 

Answer 2

해쉬 참조의 배열을 반복하여 각각의 참조를 적절하게 참조 해제해야합니다.

for my $hash_ref (@AoH) 
{ 
    for my $key (keys %{$hash_ref}) 
    { 
     print "$key => $hash_ref->{$key}\n" 
    } 
} 

또는

for my $hash_ref (@AoH) 
{ 
    while (my ($key, $val) = each %{$hash_ref}) 
    { 
     print "$key => $val\n"; 
    } 
} 

은 그들을 밖으로 인쇄를 포함하여 중첩 된 데이터 구조에 대한 자세한위한 perldoc perldsc를 참조하십시오.