Perl/Perlfaq4-65

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;