유니 코드 데이터에 대해 Perl 6을 왕복으로 안전하게 만들 수있는 방법은 무엇입니까?

Question

순진한 Perl 6 프로그램은 유니 코드와 관련하여 왕복 안전하지 않습니다.

$ perl -CO -E 'say "e\x{301}"' | perl6 -ne '.say' | perl -CI -ne 'printf "U+%04x\n", ord for split //' 
U+00e9 
U+000a 

나는이 문제에 대한 아무것도 볼 수없고, 나는 그것이 매우 충격 찾을 문서를 통해 파고 : 그것은 내부적으로 str을 유형에 대한 정규화 양식 구성 (NFC)를 사용하는 것처럼 나타납니다.

$ perl -CO -E 'say "e\x{301}"' | perl6 -e 'while (my $byte = $*IN.read(1)) { $*OUT.write($byte) }' | perl -CI -ne 'printf "U+%04x\n", ord for split //' 
U+0065 
U+0301 
U+000a 

안전하게 펄 6 라운드 트립으로 모든 텍스트 파일을 NFC에 있어야합니까 : 나는 당신이 왕복 텍스트로 다시 바이트 수준으로 떨어 필요가 믿을 수 없어? 문서가 NFD에 있어야한다면 어떻게 될까요? 여기에 뭔가 빠져 있어야합니다. 나는 이것이 의도적 인 행동이라고 믿을 수 없다.

Answer 1

대답은 Uni 유형 (NFD, NFC 등의 기본 클래스)을 사용하는 것으로 보이지만 실제로는 그렇게하지 않으며 파일을 Uni 문자열로 가져 오는 좋은 방법이 없습니다. 따라서 앞으로 이름이 명시되지 않은 지점까지는 정규화되지 않은 파일을 바이트로 처리하지 않으면 라운드 트립 할 수 없습니다.

Answer 2

UTF8-C8을 사용하십시오. documentation에서 :

당신은 그들이 디스크에 으로 정확한 바이트를 읽을 수있는 파일 핸들과 UTF8-C8를 사용할 수 있습니다. 을 UTF8 핸들을 사용하여 인쇄하면 인쇄 할 때 재미있어 보일 수 있습니다. 출력이 UTF8-C8 인 핸들에 인쇄하면 보통 예상대로 으로 렌더링되며 바이트 정확한 복사를위한 바이트가됩니다.