Tekst: DIFF3 Drie Way Tekstvergelijking en samenvoegen
Download nu

Tekst: DIFF3 Rangschikking & Samenvatting

Tekst: DIFF3 Tags

tekst Perl-module perl vergelijking tekstvergelijking tekst fusie

Tekst: DIFF3 Beschrijving

Drie manier om tekstvergelijking en samenvoegen Tekst: DIFF3 is een PERL-module die een manier biedt om verschilsets te berekenen tussen twee of drie teksten die zijn geporteerd van GNU Diff3.c geschreven door R. Smith. Voor gebruikers Gemak, tekst :: Diff3 :: Lite omvat kleine verschil op basis van de P. HECKEL'S ALGORITHM. Aan de andere handen gebruiken veel andere systemen het populaire minst gemeenschappelijke sequentie (LCS) -algoritme. De verdiensten voor elk algoritme zijn geval bij geval. In de ervaring van de auteur genereren twee algoritmen bijna dezelfde resultaten voor kleine lokale veranderingen in de tekst. In sommige gevallen, zoals bewegende lijnen, gebeurde het vrij verschillen in resultaten.Synopsis # in gebreke, deze module exporteert geen symbool. Gebruik tekst: diff3; # Functiestijl geïntroduceerd uit versie 0.08 Gebruik tekst :: Diff3 QW (: ALL); Gebruik tekst: diff3 qw (diff3 samenvoegend diff); # Component-stijl is niet langer onderhoud. Gebruik tekst: DIFF3 QW (: Factory); mijn $ mytext = ); mijn $ original = ); mijn $ yourtext = ); # Functiestijl geïntroduceerd uit versie 0.08 My $ Diff3 = Diff3 ($ myText, $ Orial, $ YOUTEXT); voor mijn $ R (@ {$ Diff3}) {printf "% s% D,% D% D,% D% D,% D \ n", @ {$ r}; # Lineno Begin van niet nul maar één! Voor mijn $ LINENO ($ R -> .. $ R -> ) {Print $ MyText -> , "\ N"; } Voor mijn $ LINENO ($ R -> .. $ R -> ) {Print $ YOUTEXT -> , "\ N"; } Voor mijn $ LINENO ($ R -> .. $ R -> ) {Print $ Original -> , "\ N"; }}); mijn $ samenvoeging = samenvoegen ($ mytext, $ origial, $ youtext); if ($ fuse -> {conflict}) {PRINT STDERR "CONFLICT \ N"; } Voor mijn $ regel (@ {$ merge -> {body}}) {print "$ line \ n"; } mijn $ diff = diff ($ original, $ mytext); voor mijn $ r (@ {$ diff}) {printf "% s% s% s \ n", $ r -> > = $ r -> ? $ R -> : "$ r -> , $ r -> ", $ r -> , $ r -> > = $ r -> ? $ R -> : "$ R -> , $ R -> "; if ($ R -> ne 'A') {# Verwijderen of wijzigen voor mijn $ LINENO ($ R -> .. $ R -> ) {Print Q {-}, $ Original -> , "\ N"; }} if ($ R-> Type NE 'D') {# aanhang of verandering voor mijn $ linneno ($ R -> .. $ R -> ) {print q {+}, $ mytext -> , "\ N"; }}}); # Component-stijl is niet langer onderhoud. Mijn $ F = Tekst :: Diff3 :: Factory-> Nieuw; mijn $ mytext = $ f-> create_text (); My $ Original = $ f-> create_text (); mijn $ yourtext = $ f-> create_text (); mijn $ P3 = $ f-> create_diff3; mijn $ diff3 = $ p3-> diff3 ($ mytext, $ original, $ yourtext); voor mijn $ R (@ {$ diff3-> lijst}) {print $ r-> as_string, "\ n"; # 12,34,56,7 print $ mytext-> as_string_range ($ r-> bereik0); Print $ yourtext-> as_string_range ($ r-> bereik1); Print $ Original-> AS_String_Range ($ R-> Range2); } Mijn $ P2 = $ F-> Create_Diff; mijn $ diff = $ p2-> diff ($ original, $ mytext); voor mijn $ R (@ {$ diff-> lijst}) {print $ r-> as_string, "\ n"; # 100.102C104,110 Print $ original-> as_string_range ($ R-> RANGEA); Print $ MYTEXT-> AS_STRING_RANGE ($ R-> Bereikb); } Vereisten: · Perl

Tekst: DIFF3 Gerelateerde software