String :: Diff SIMPLE DIFF DE STRING
Télécharger maintenant

String :: Diff Classement & Résumé

String :: Diff Mots clés

Module Perl perl diffuser chaîne de caractères

String :: Diff La description

String :: DIFF est la différence d'une chaîne consécutive est faite. Une fois que le général diff est terminé, la différence dans la ligne est interrogeable.Synopsis Utilisez la chaîne :: Diff; Utilisez String :: DIFF QW (DIFF_FAIMISIER DIFF_MERGE DIFF_REGEXP); # FONCTIONS D'EXPORTATION # SIMPLE DIFF MON ($ OLD, $ neuf) = String :: DIFF :: DIFF ("Ceci est Perl '," Ceci est rubis "); imprimer "$ old \ n"; # c'est Imprimer "$ nouveau \ n"; # c'est {ruby} mon $ diff = string :: Diff :: DIFF ("C'est Perl ', c'est-ce que c'est rubis '); Imprimer "$ diff -> \ n"; # c'est Imprimer "$ diff -> \ n"; # c'est {RUBY} MY $ DIFF = String :: DIFF :: DIFF (DIFF ( "Ceci est perl", 'c'est ruby', retirer_open => '', retirer_close => '', append_open => '' ', append_close =>' ',); imprimer "$ diff -> \ n"; # c'est Perl Imprimer "$ diff -> \ n"; # c'est ruby # fusionné mon $ diff = string :: DIFF_MERGE (' est perl ',' c'est ruby '); Imprimer "$ DIFF \ N"; # c'est {RULY} MY $ DIFF = String :: DIFF_MERGE ("Ceci est Perl '," Ceci est rubis ", retirer_open =>", retirer_close => '', append_open => '', append_close => '',); Imprimer "$ DIFF \ N"; # c'est pérlruby # Changer en marques par défaut% String :: DIFF ::FAULT_MARKS = (supprimer_OPEN => '' '' '' '', APPEND_OPEN => '' ', APPEND_PLOSE =>' ' , séparateur => '', # pour diff_merge); # généré pour regexp mon $ diff = string :: DIFF :: DIFF_REGEXP ('Ceci est Perl', 'C'est ruby'); Imprimer "$ DIFF \ N"; # Ceci \ is \ is \ (?: Perl | ruby) # Liste détaillée My $ Diff = String :: Diff :: Diff_fully (this est Perl ', "Ceci est Ruby'); Pour ma ligne $ (@ {$ diff-> }) {imprimé "$ ligne -> : '$ ligne -> ' \ n"; } # \ n "; } # U: 'C'est' # +: 'Page d'accueil de Ruby'Product

String :: Diff Logiciels associés