Testo :: diff3. Confronto di testo a tre vie e fusione
Scarica ora

Testo :: diff3. Classifica e riepilogo

Testo :: diff3. Tag

testo modulo Perl perl confronto Confronto del testo fusione di testo

Testo :: diff3. Descrizione

Confronto di testo a tre vie e fusione Testo :: DIFF3 è un modulo Perl che fornisce un modo per calcolare le differenze tra due o tre testi portati da GNU diff3.c Scritto da R. Smith.Per comodità, testo :: diff3 :: lite include piccole differenziali sulla base del L'algoritmo di P. di Heckel. Delle altre mani, molti altri sistemi utilizzano il popolare algoritmo di sequenza meno comune (LCS). I meriti per ogni algoritmo sono case per caso. Nell'esperienza dell'autore, due algoritmi generano quasi gli stessi risultati per piccoli cambiamenti locali nel testo. In alcuni casi, come i blocchi di linee mobili, è successo abbastanza differenze nei risultati .synopsis # In default, questo modulo non esporta alcun simbolo. Usa il testo :: diff3; # stile funzione introdotto dalla versione 0.08 utilizzare il testo :: diff3 QW (: tutto); Utilizzare il testo :: diff3 qw (diff3 unione diff); # Lo stile componente non è più manutenzione. Usa il testo :: DIFF3 QW (: fabbrica); My $ mytext = ); My $ Original = ); My $ yourtext = ); # stile funzione introdotto dalla versione 0.08 my $ diff3 = diff3 ($ mytext, $ origial, $ yourtext); per i miei $ r (@ {$ diff3}) {printf "% s% d,% d% d,% d% d,% d \ n", @ {$ r}; # lineno inizia da non zero ma uno! per il mio $ lineno ($ r -> .. $ R -> ) {stampa $ MyText -> , "\ n"; } per il mio $ lineno ($ r -> .. $ r -> ) {stampa $ yourtext -> , "\ n"; } per il mio $ lineno ($ r -> .. $ r -> ) {stampa $ originale -> , "\ n"; }}); My $ Merge = Merge ($ MyText, $ origial, $ yourtext); Se ($ Merge -> {conflitto}) {stampa STDERR "Conflict \ N"; } per la mia linea $ (@ {$ Merge -> {body}}) {stampa "$ line \ n"; } My $ diff = diff ($ originale, $ mytext); per i miei $ r (@ {$ diff}) {printf "% s% s% s \ n", $ r -> > = $ r -> ? $ R -> : "$ R -> , $ R -> ", $ R -> , $ R -> > = $ R -> ? $ r -> : "$ r -> , $ r -> "; Se ($ R -> NE 'A') {# Elimina o modifica per il mio $ lineno ($ r -> .. $ r -> ) {stampa q {-}, $ originale -> , "\ n"; }} IF ($ R-> tipo NE 'D') {# Aggiungi o modifica per il mio $ lineno ($ R -> .. $ R -> ) {stampa q {+}, $ MyText -> , "\ n"; }}}); # Lo stile componente non è più manutenzione. My $ f = testo :: diff3 :: fabbrica-> nuovo; My $ MyText = $ F-> Create_text (); My $ Original = $ F-> Create_text (); My $ YourText = $ f-> create_text (); My $ P3 = $ f-> creato_diff3; My $ DIFF3 = $ P3-> diff3 ($ MyText, $ Original, $ yourtext); per il mio $ r (@ {$ diff3-> list}) {stampa $ r-> as_string, "\ n"; # 12,34,56,7 Stampa $ mytext-> as_string_range ($ r-> gamma0); Stampa $ yourtext-> as_string_range ($ r-> range1); Stampa $ originale-> as_string_range ($ r-> range2); } My $ P2 = $ f-> creato_diff; my $ diff = $ P2-> diff ($ originale, $ mytext); per il mio $ r (@ {$ diff-> list}) {stampa $ r-> as_string, "\ n"; # 100,102C104,110 Stampa $ originale-> AS_STRING_RANGE ($ R-> Rangea); Stampa $ mytext-> as_string_range ($ r-> rangeb); } Requisiti: · Perl.

Testo :: diff3. Software correlato