String :: Diff. diff simples para string
Baixe Agora

String :: Diff. Classificação e resumo

String :: Diff. Tag

Módulo Perl. perl dif. corda

String :: Diff. Descrição

String :: Diff é a diferença de uma string consecutiva é feita. Depois que o Diff General é feito, a diferença na linha é pesquisável.Synopsis usa string :: diff; Usar string :: diff qw (diff_fly diff diff_merge diff_reegexp); # Exportar funções # simples diff My ($ old, $ new) = string :: diff :: diff ('isso é perl', 'isso é ruby'); Imprimir "$ old \ n"; # isto é imprimir "$ new \ n"; # isto é {ruby} minha $ diff = string :: diff :: diff ('isso é perl', 'isso é ruby '); Imprimir "$ diff -> \ n"; # isso é imprimir "$ diff -> \ n"; # isto é {ruby} my $ diff = string :: diff :: diff ( 'Isso é perl', 'isso é ruby', remove_open => '' ', remove_close =>' ', append_open =>' ', append_close =>' ',); imprimir "$ diff -> \ n"; # isso é perl imprimir "$ diff -> \ n"; # isso é ruby # mescled my $ diff = string :: diff :: diff_merge ('este é perl ',' isso é rubi '); Imprimir "$ diff \ n"; # Isso é {Ruby} Minha $ diff = string :: diff :: diff_merge ('isso é perl', 'isso é ruby', remove_open => '', remove_close => '' '', append_open => '', append_close => '' ',); Imprimir "$ diff \ n"; # Isso é Perlruby # Alterar para Marcas padrão% String :: Diff :: Default_marks = (remove_open => '', remove_close => '', append_open => '' ' , separador => '', # para diff_merge); # gerado para regexp my $ diff = string :: diff :: diff_reegexp ('isso é perl', 'isso é ruby'); Imprimir "$ diff \ n"; # isto \ is \ (?: perl | Ruby) # lista detalhada Meu $ diff = string :: diff :: diff_fully ('isso é perl', 'isso é ruby'); Para minha $ linha (@ {$ diff -> } {print "$ line -> : '$ linha -> ' \ n"; } # U: 'Isto é' # -: 'Perl' para minha $ linha (@ {$ diff -> }) {print "$ line -> : '$ line -> ' \ n "; } # U: 'Isto é' # +: 'Homepage do Ruby'produto

String :: Diff. Software Relacionado