Perl/Perlfaq4-65 페이지의 소스 보기

내용출력

로그인[l]

수정할 수 없습니다: Perl/Perlfaq4-65 는 읽기 전용 페이지입니다.

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

* [http://faq.perl.org/perlfaq4.html#How_can_I_get_the_un 원문]

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

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

더 간결하게:

{{{#!vim perl
	@uniq = keys %{{%foo,%bar}};
}}}

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

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


<div class="comments">
<longcomments(100)>
----

</div>
----
[[컴퓨터분류]] [[Perl]] [[/Perlfaq]]

Perl/Perlfaq4-65 페이지로 돌아가기 | 다른 수정본 보기