سلسلة :: فرق فرق بسيط على السلسلة
التحميل الان

سلسلة :: فرق الترتيب والملخص

سلسلة :: فرق العلامات

الوحدة النمطية بيرل بيرل فرق سلسلة

سلسلة :: فرق وصف

سلسلة :: diff هو اختلاف سلسلة متتالية. بعد انتهاء فرق عام، الفرق في الخط هو البحث. استخدام السلسلة :: Diff QW (Diff_perfully Diff diff_merge diff_regexp)؛ # وظائف التصدير # # فرق بسيط بلدي ($ القديم، $ جديد) = سلسلة :: diff :: diff ("هذا perl"، "هذا روبي")؛ طباعة "$ قديم \ n"؛ # هذا طباعة "$ new \ n"؛ # هذا {روبي} بلدي diff = string :: diff :: diff ('هذا هو perl'، هذا هو روبي ') طباعة "Diff $ -> \ n"؛ # هذا طباعة "$ Diff -> \ n"؛ # هذا {روبي} بلدي $ diff = string :: diff :: diff ( "هذا هو بيرل"، "هذا روبي"، reform_open => '' '، revey_close =>' '، append_open =>' '، append_close =>' '،)؛ طباعة "Diff $ -> \ n"؛ # هذا هو Perl Print "Diff Diff -> \ n"؛ # هذا هو روبي # دمج بلدي Diff = سلسلة :: diff :: diff_merge ('this هو بيرل "،" هذا روبي ")؛ طباعة "$ diff \ n"؛ # هذا {ruby} بلدي $ diff = string :: diff :: diff_merge ("هذا perl"، "هذا روبي"، reform_open => ''، revey_close => ""، append_open => ''، append_close => ''،)؛ طباعة "$ diff \ n"؛ # هذا هو perlrouby # التغيير إلى العلامات الافتراضية string :: diff :: default_marks = (refect_open => ''، revey_close => ''، append_open => '' ، فاصل => ''، # ل Diff_merge)؛ # تم إنشاؤه ل Regexp My Diff = String :: Diff :: diff_regexp ('هذا perl'، "هذا روبي")؛ طباعة "$ Diff \ n"؛ # هذا \ is \ (؟: perl | روبي) # قائمة مفصلة بلدي diff = string :: diff :: diff_cally ("هذا perl"، "هذا روبي")؛ بالنسبة لخط My $ (@ diff diff -> }) {print "$ LINE -> : '$ $ -> ' \ n '؛ } # U: "هذا هو" # -: "بيرل" لخط My $ (@ $ Diff -> }) {print "$ -> :" خط $ -> " \ن"؛ } # U: "هذا هو" # +: 'الصفحة الرئيسية Ruby'Product

سلسلة :: فرق برامج ذات صلة