Perl text diff color

Question

2つのテキスト文字列を比較し、その違いを色で表示したいと考えています。私はString::Diffを試しましたが、違いを色で表示することができませんでした。 ANSIカラーなどの色の違い
編集を表示して私を助けていない：ここで私は

 
$string1 = "This is string 1" ; 
$string2 = "This is string 2" ; 

some_diff_cmd($string1,$string2) ; 

を望む結果が、私はバージョン12

編集、アクティブ状態のPerl 5でWindowsを使用しています私が欲しいの出力（太字のエントリは、カラーの赤と言うにする必要があります）

###文字列は####

がstring1と一致していない=これは文字列 0123です string2 =これは文字列です

Answer 1

この状況についてはどうですか？

use Win32::Console::ANSI; 
use String::Diff qw(diff); 

my @strings = (
    'This is string 1', 'This is string 2' 
); 

my $BOLD_RED_MARK = "\e[1;31m"; # or \e[0;31m, if bold is not required 
my $RESET_MARK = "\e[0m"; 

my $diff = String::Diff::diff(@strings, 
    remove_open => $BOLD_RED_SIGN, 
    remove_close => $RESET_SIGN, 
    append_open => $BOLD_RED_SIGN, 
    append_close => $RESET_SIGN, 
); 

print $diff->[0], "\n"; 
print $diff->[1], "\n";