텍스트 :: diff3. 세 방향 텍스트 비교 및 병합
지금 다운로드

텍스트 :: diff3. 순위 및 요약

텍스트 :: diff3. 태그

텍스트 Perl 모듈 펄 비교 텍스트 비교 텍스트 합병

텍스트 :: diff3. 설명

3 방향 텍스트 비교 및 합병 Text :: Diff3은 R. Smith가 작성한 GNU Diff3.C에서 포팅 된 2 개 또는 세 개의 텍스트 사이의 차이 세트를 계산하는 방법을 제공하는 Perl 모듈입니다. 사용자 편의성, 텍스트 :: diff3 :: Lite는 작은 diff를 기반으로합니다. P. heckel의 알고리즘. 다른 손에 다른 많은 시스템은 널리 적어도 공통된 시퀀스 (LCS) 알고리즘을 사용합니다. 각 알고리즘에 대한 장점은 경우에 따라 경우가 있습니다. 저자의 경험에서 두 개의 알고리즘은 텍스트의 작은 로컬 변경에 대해 거의 동일한 결과를 생성합니다. 라인의 블록을 이동하는 것과 같은 경우, 결과에서 매우 차이가 발생했습니다. 식 노프 # 기본값은이 모듈은 기호를 내보내지 않습니다. 텍스트 :: diff3을 사용하십시오; # 버전 0.08에서 도입 된 기능 스타일 텍스트 :: DIFF3 QW (: ALL); 텍스트 :: diff3 qw (diff3 병합 diff); # 구성 요소 스타일은 더 이상 유지 보수가 아닙니다. 텍스트 :: diff3 qw (: 공장); MY $ MyText = ); MY $ Original = ); 내 $ yourtext = ); # 기능 스타일 버전 0.08 My $ diff3 = diff3 ($ mytext, $ notial, $ text); My $ R (@ {$ diff3}) {printf "% s % d, % d % d, % d % d % d % d % d % d \ n", @ {$ r}; # Lineno는 0에서 시작하지 않지만 하나! My $ Lineno ($ r -> .. $ r -> ) {인쇄 $ mytext -> , "\ n"; } My $ Lineno ($ r -> .. $ r -> ) {$ $ yourtext -> , "\ n"; } My $ Lineno ($ r -> .. $ r -> ) {인쇄 $ Original -> , "\ n"; }}); $ merge = 병합 ($ mytext, $ notial, $ text); if ($ merge -> {conflict}) {print stderr "conflict \ n"; } $ LINE (@ {$ merge -> {body}}) {인쇄 "$ line \ n"; } My $ diff = diff ($ Original, $ MyText); $ r (@ {$ diff}) {printf "% s % s % s % s \ n", $ r -> > = $ r -> ? $ r -> : "$ r -> , $ r -> ", $ r -> , $ r -> > = $ r -> ~을 자란 $ r -> : "$ r -> , $ r -> "; if ($ r -> Ne 'a') {# 삭제 ($ r -> .. $ r -> ) {인쇄 q {-}, $ Original -> , "\ n"; }} ($ r-> ne 'd') {# $ lineno ($ r -> .. $ R -> ) {인쇄 q {+}, $ mytext 인쇄 -> , "\ n"; }}}); # 구성 요소 스타일은 더 이상 유지 보수가 아닙니다. 내 $ f = 텍스트 :: diff3 :: factory-> new; MY $ MYTEXT = $ F-> CREATE_TEXT (); $ ORIGINAL = $ F-> create_text (); 내 $ yourtext = $ f-> create_text (); 내 $ p3 = $ f-> create_diff3; 내 $ diff3 = $ p3-> diff3 ($ mytext, $ 원본, $ yourtext); $ R (@ {$ diff3-> list}) {인쇄 $ r-> as_string, "\ n"; # 12,34,56,7 인쇄 $ mytext-> as_string_range ($ r-> range0); $ yourtext-> as_string_range ($ R-> 범위 1)를 인쇄하십시오. $ Original-> AS_STRING_RANGE ($ R-> RANGE2) 인쇄; } My $ P2 = $ F-> create_diff; 내 $ diff = $ p2-> diff ($ 원래, $ mytext); $ r (@ {$ diff-> list}) {인쇄 $ r-> as_string, "\ n"; # 100,102C104,110 인쇄 $ Original-> AS_STRING_RANGE ($ R-> 범위); $ myText-> AS_STRING_RANGE ($ R-> RANGINB) 인쇄; } 요구 사항 : · Perl.

텍스트 :: diff3. 관련 소프트웨어