String :: diff.

Einfacher Diff-Nr.
Jetzt downloaden

String :: diff. Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Kazuhiro Osawa
  • Website des Verlags:
  • http://search.cpan.org/~yappo/

String :: diff. Stichworte


String :: diff. Beschreibung

String :: Diff ist der Unterschied einer aufeinanderfolgenden String. Nach dem allgemeinen Diff ist der Unterschied in der Zeile durchsuchbar. Synopsis verwenden String :: diff; Verwenden Sie String :: diff qw (diff_ablig diff diff_merge diff_regexp); # Exportfunktionen # Simple DIFF Mein ($ Old, $ NEU) = String :: diff :: diff ('Dies ist Perl', 'Das ist Ruby', 'Dies ist Rubin'); drucken "$ old \ n"; # Dies ist drucken "$ new \ n"; # Dies ist {Ruby} My $ diff = string :: diff :: diff ('Dies ist Perl', 'Das ist Rubin '); drucken "$ diff -> \ n"; # Dies ist drucken "$ diff -> \ n"; # Dies ist {Ruby} My $ diff = string :: diff :: diff (diff ( 'Dies ist Perl', 'Dies ist Ruby', Remove_open => '', Remove_close => '', Append_open => '', Append_Close => '',); drucken "$ diff -> \ n"; # Dies ist Perl drucken "$ diff -> \ n"; # Dies ist Rubin # zusammen mit meinem $ diff = string :: diff :: diff_merge ('das ist perl ',' das ist ruby '); drucken "$ diff \ n"; # Dies ist {Ruby} My $ diff = string :: diff :: diff_merge ('Dies ist Perl', 'Dies ist Ruby', Remove_open => '', entfernen_close => '', Append_open => '', Append_Close => '',); drucken "$ diff \ n"; # Dies ist Perlruby # Ändern in Standardmarken% String :: diff :: default_marks = (remove_open => '', remove_close => '', append_open => '', append_close => '' , separator => '' ', # für diff_merge); # erstellt für regexp My $ diff = string :: diff :: diff_regexp ('Dies ist Perl', 'Das ist Ruby'); drucken "$ diff \ n"; # Diese \ ist \ (?: perl | ruby) # detaillierte Liste meine $ diff = string :: diff :: diff_ably ('das ist perl', 'das ist ruby'); für meine $ Zeile (@ {$ diff -> }) {drucken "$ line -> : '$ line -> ' \ n '; } # u: 'Das ist' # -: 'Perl' für meine $ line (@ {$ diff -> }) {drucken "$ line -> : '$ line -> ' \n"; } # u: 'Dies ist' # +: 'Ruby'product's Homepage


String :: diff. Zugehörige Software