Perl에서 중첩 구조(예: 해시 배열, 배열 해시)의 깊은 복사를 수행하려면 간단한 할당이나 표준 함수(@b = @a, %b = %a, $clone = $orig)를 사용할 수 없습니다. 이러한 작업은 단지 얕은 복사를 생성합니다: 중첩 객체는 여전히 동일한 메모리 영역을 참조합니다.
깊은 복사를 위해 다음을 사용합니다:
Storable 모듈:use Storable 'dclone'; my $deep_copy = dclone($structure);
Clone 모듈: 유사한 방법.모든 중첩 수준, 구조 내의 링크도 복사된다는 점을 기억하는 것이 중요합니다.
복잡한 데이터 구조에 대해 간단한 할당을 수행하면 어떤 일이 발생하나요: 중첩 요소가 복사되나요?
답변: 아니요, 상위 수준만 복사됩니다. 내부 배열과 해시는 원본과 복사본 간에 공유됩니다.
my $orig = { a => [1,2,3], b => { x => 7 } }; my $copy = $orig; $copy->{a}[0] = 99; # $orig->{a}[0]도 99가 됩니다!
깊은 복사만이 완전히 독립적인 복사본을 제공합니다.
이야기 1
REST API 애플리케이션에서 다양한 클라이언트를 위해 요청을 일반 할당 링크로 복사했습니다. 그 결과 한 클라이언트의 응답 변경이 즉시 다른 모든 클라이언트에 반영되었습니다 — 모두 동일한 중첩 데이터 구조를 사용했기 때문입니다.
이야기 2
복잡한 배열 구조의 데이터를 집계할 때 push를 통해 복사하는 것을 사용했으며( push @new, @old), 중첩 수준을 잊어버렸습니다. 우연히 중첩 해시를 변경하면서 모든 집계의 데이터가 손상되었습니다 — 버그가 오랫동안 발견되지 않았습니다.
이야기 3
로그 처리를 위해 Clone을 사용해 구조를 복사했지만 객체의 특수한 '마법의' 필드를 고려하지 않아서 필요한 메서드/속성을 잃어버렸습니다. 결국 기능이 유효하지 않았고, 오류는 프로덕션에서만 재현되었습니다.