펄에서 서브 루틴으로 전달 된 해시에서 배열을 검색하는 방법

Question

배열의 해시를 인수로 취하는 서브 루틴을 작성하려고합니다. 그러나 배열 중 하나를 검색하려고하면 배열 자체 대신 배열의 크기를 얻는 것 같습니다.

my(%hash) = (); 
$hash{"aaa"} = ["blue", 1]; 

_subfoo("test", %hash); 

sub _subfoo { 

    my($test ,%aa) = @_; 

    foreach my $name (keys %aa) { 
     my @array = @{$aa{$name}}; 
     print $name. " is ". @array ."\n"; 
    } 
} 

이것은 예상 한대로 (파란색, 1) 대신 2를 반환합니다. 서브 루틴에서 해시 배열을 처리하는 다른 방법이 있습니까?

스택 오버플로, 처음 포스터 및 프로그래밍 처음부터 너무 단순한 경우 사과드립니다.

Answer 1

당신은 바로 여기 스칼라 문맥으로 @array 배열을 옮기고 :

print $name. " is ". @array ."\n"; 

배열을 스칼라 문맥으로하면 배열에 당신 요소의 수를 제공하고 @array 2 개 요소가 발생합니다.

print $name . " is " . join(', ', @array) . "\n"; 
print $name, " is ", @array, "\n"; 
print "$name is @array\n"; 

을 당신은 당신의 @array의 요소를 볼 수 있습니다 :이 대신 중 하나를 시도하십시오. join을 사용하면 원하는대로 요소를 붙여 넣을 수 있습니다. 두 번째 것은 목록 컨텍스트에서 @array을 평가하고 값을 분리하지 않고 함께 매시합니다. 세 번째 요소는 $" (기본값은 단일 공백 ​​임)과 함께 해당 요소를 결합하여 @array을 보간합니다.

Answer 2

mu가 너무 짧기 때문에 배열을 스칼라 컨텍스트로 사용 했으므로 요소 대신 길이가 반환됩니다. 나는 당신의 코드에 대한 다른 조언을했다.

인수를 인수로 전달하면 배열이나 해시 중 일부가 좋은 생각 일 때가 있습니다. 이것은 작동

foo(@bar, @baz); 
sub foo {      # This will not work 
    my (@array1, @array2) = @_; # All the arguments will end up in @array1 
    ... 
} 

그러나 :

foo(\@bar, \@baz); 
sub foo {     
    my ($aref1, $aref2) = @_; 
    ... 
} 

당신은 찾을 수 있습니다 이유는 배열과 해시이 불가능 같은 것을 만드는 서브 루틴에 전달되기 전에리스트로 확장한다는 것이다 귀하의 경우, each 좋은 기능입니다, 그것은 조금 더 깔끔하게 배열을 dereferencing하게 만들 것입니다.

foo("test", \%hash); # note the backslash to pass by reference 

sub foo { 
    my ($test, $aa) = @_; # note use of scalar $aa to store the reference 

    while (my ($key, $value) = each %$aa)) { # note dereferencing of $aa 
     print "$key is @$value\n";   # ...and $value 
    } 
}