Perl에서 해시 배열을 값 배열로 변환하려면 어떻게해야합니까?

Question

나는 해시의 배열이 있습니다

my @sports; 
push @sports, { id=>1, name=>'Rugby' }; 
push @sports, { id=>2, name=>'Football' }; 

을 나는 모든 이름 (A CGI 팝업 메뉴에 표시)의 배열을 얻을합니다. 나는이 그렙 문을 사용하여 시도 :

my @names = grep { $_->{name} } @sports; 

하지만 그냥 해시 값의 배열을 반환 ... 그래서

나는 현재 다른로 밀어 모든 값을 반복하는 루프를 사용에 의존하고

정렬.

속도를 높이는 방법이 있습니까?

Answer 1

당신은하지 grep, map합니다 관심사; 가독성이 있어야합니다. 물론 효율성은 중요하지만 코드를 간결하고 비밀스럽게 생각하면 프로그램 성능이 향상 될 것이라는 생각에 자신을 빠지게하지 마십시오. 그렇지 않습니다. To assess performance, benchmark your programs.

my (@sports, @names); 
push @sports, { id=>1, name=>'Rugby' }; 
push @names, 'Rugby'; 
push @sports, { id=>2, name=>'Football' }; 
push @names, 'Football'; 

이것은 피할 : 당신이 정말 열심히 당신의 예에서와 같이 @sports의 채우기를 코딩 한 경우

Answer 2

my @sports; 
push @sports, { id=>1, name=>'Rugby' }; 
push @sports, { id=>2, name=>'Football' }; 
foreach(@sports){ 
    push @names, $_->{'name'}; 
} 
foreach(@names){ 
    print "$_\n"; 
} 

아, 죄송합니다. 게시물을 다시 읽으십시오. TBH, 그러나 당신은 그것을 쓰지 만, 나는 내부적으로 루프가 어쨌든 일어나고 있다고 생각한다. 조기에 최적화하려고하지 않으시겠습니까? 성능 문제가 있습니까?

use strict; 
use warnings; 
my @sports; 
push @sports, { id=>1, name=>'Rugby' }; 
push @sports, { id=>2, name=>'Football' }; 
my @names = map $_->{name}, @sports; 
print for @names; 

D:\temp> perl -l m.pl 
Rugby 
Football

그러나이 적어도 상당한 방법으로, 속도와 아무 상관이없는주의, 속도는 기본 안 :

Answer 3

for my $i (0 .. $#sports) { 
    print "$sports[$i]{name} \n";  
} 

가리키고 당신은 또한이 솔루션은 간단하다

Answer 4

을 통해 루프지도 기능을 사용할 수 있습니다 두 번째 루프는 모두