TEXT :: DIFF3 3つの方法の比較とマージ
今すぐダウンロード

TEXT :: DIFF3 ランキングとまとめ

TEXT :: DIFF3 タグ

文章 Perlモジュール パール 比較 テキストの比較 テキスト合併

TEXT :: DIFF3 説明

三方テキスト比較とマージ テキスト:: diff3の2つまたは3つのテキストがR. Smith.Forユーザーの利便性によって書かれたGNUのdiff3.cから移植の間、テキスト::のdiff3 :: Liteはに基づいて、小さな差分を含んで計算違い・セットへの道を提供するPerlモジュールですP.ヘッケルのアルゴリズム。他の手で、他の多くのシステムは人気の最も一般的なシーケンス（LCS）アルゴリズムを使用しています。各アルゴリズムのメリットはケースでケースである。著者の経験では、2つのアルゴリズムがテキスト内の小さなローカル変更に対してほぼ同じ結果を生み出します。いくつかのケースでは、そのような行のブロックを移動するように、このモジュールは任意のシンボルをエクスポートしていない、デフォルトでresults.SYNOPSIS＃でかなりの違いが起こりました。使用テキスト::のdiff3。 （：すべて）VERSION 0.08使用テキスト::のdiff3のQWから導入＃機能のスタイル。使用テキスト::のdiff3のQW（diff3のマージ差分）。 ＃コンポーネントのスタイルは、もはや維持されません。 （：工場出荷時）テキスト::のdiff3のQWを使用します。私の$ MYTEXT = ）。私の$元= ）。私の$ yourtext = ）。 ＃VERSION 0.08から導入された機能スタイル私の$のdiff3 =のdiff3（$ MYTEXT、$ origial、$ yourtext）。私の$ Rの（@ {$のdiff3}）{printfの "％sの％D、％D％D、％D％D、％D n" は、@ $ {R}。 ＃LINENOのないゼロからのスタートが、ONE！ （ - > .. $ R - > $ R）{$ MYTEXTを印刷 - > 私の$ LINENOため、 " n"; {$ yourtextを印刷 - > }私の$ LINENO（ - - > .. $ R> $ R）ため、 " n"; {$元の印刷 - > }私の$ LINENO（ - - > .. $ R> $ R）ため、 " n"; }}）。私の$マージ=マージ（$ MYTEXT、$ origial、$ yourtext）。 IF（$マージ - > {衝突}）{印刷STDERR "競合する n"。 }私の$ライン用（@ {$マージ - > {体が}}）{ "$行 n" を印刷します。 }私の$デフ=デフ（元$、$ MYTEXT）。私の$ Rの（@ {$差分}）{printfの "％S％S％S n"、$ R - > > = $ R - > ？ $ R - > ： "$ R - > 、$ R - > "、$ R - > 、$ R - > > = $ R - > ？ $ R - > ： "$ R - > 、$ R - > "。 IF（$ R - > NE 'A'）{＃私の$ LINENOの削除または変更（$ R - > .. $ R - > ）{印刷Q { - }、$原 - > 、 " n" は、 }}（$ R->型NE 'D'）なら、{私の$ LINENOため＃の追記または変更（$ R - > .. $ R - > ）{印刷Q {+}、$ MYTEXT - > 、 " n" は、 }}}）。 ＃コンポーネントのスタイルは、もはや維持されません。私の$ f = text :: diff3 :: factory-> new;私の$ MYTEXT = $ F-> create_text（）。私の$オリジナル= $ F-> create_text（）。私の$ yourtext = $ F-> create_text（）。私の$ P3 = $ F-> create_diff3。私の$のdiff3 = $ P3->のdiff3（$ MYTEXT、$元、$ yourtext）。私の$ R（@ {$ diff3->リスト}）のために{$を印刷R-> as_string、 " n" は、 ＃1、2,3-、4,5-、6,7-、印刷$ mytext-> as_string_range（$ R-> RANGE0）。 （$ R->範囲1）$ yourtext-> as_string_rangeを印刷します。 （$ R->範囲2）$オリジナル - > as_string_rangeを印刷します。 }私の$ P2 = $ F-> create_diff。私の$ diffを= $ P2->デフ（元$、MYTEXT $）。私の$ R（@ {$ diff->リスト}）のために{$を印刷R-> as_string、 " n" は、 ＃100,102c104,110プリント$オリジナル - > as_string_range（$ R-> rangeA）; （$ R-> rangeB）$ mytext-> as_string_rangeを印刷します。 } 要件： ・Perl

TEXT :: DIFF3 関連ソフトウェア