Perl/Perlfaq4-65

내용출력

로그인[l]

1 번째 수정본
(1 번째 수정본부터 1 번째 수정본까지의 변경사항) (소소한 수정)
(두 수정본의 내용이 동일하거나, 수정본을 비교할 수 없음.)

1. 두 개의 해쉬에서 고유한 키들을 얻어내기 (How can I get the unique keys from two hashes?)

해쉬들에서 키를 뽑아내어 리스트로 만든 후, 앞에서 다룬 "중복된 것 제거하기"를 사용한다.

        %seen = ();
        for $element (keys(%foo), keys(%bar)) {
                $seen{$element}++;
                }
        @uniq = keys %seen;

더 간결하게:

        @uniq = keys %{{%foo,%bar}};

정 메모리를 아끼고 싶다면:

        %seen = ();
        while (defined ($key = each %foo)) {
                $seen{$key}++;
        }
        while (defined ($key = each %bar)) {
                $seen{$key}++;
        }
        @uniq = keys %seen;

컴퓨터분류 Perl /Perlfaq

이 수정본 편집일: 2009-4-10 9:37 pm (변경사항 [d])
735 hits | Permalink | 변경내역 보기 [h] | 현재 수정본 보기 | 1 번째 수정본 소스 보기