Colorify "diff -u" output

diff_-u_colors

#!/usr/bin/perl

use File::Temp qw/ :mktemp  /;

my @params = grep(/^-/,@ARGV);
@ARGV = grep(!/^-/,@ARGV);

my $tmp = $ENV{"TMP"};
$tmp = "/tmp" unless(defined($tmp));
($tmpfh, $tmpfile) = mkstemp($tmp."/diff_u.XXXXXX");

while(<>) {
    $b=$a;
    $a=s/^(-.*)/\033\[31;1m$1\033\[m/;
    s/^(\+.*)/\033\[32;1m$1\033\[m/;
    s/^(Index:)(.*)/$1\033\[40;37;1m$2\033\[K\033\[m/;
    s/^/\033\[m/ if($b&&!$a);
    print $tmpfh $_;
}

close $tmpfh;

if(-s $tmpfile) {
    system("less", "-R", @params, $tmpfile);
}

unlink($tmpfile);