Scans svn dir for modified files and tkdiffs them

svn-tkdiff-modified.pl

#!/usr/bin/perl
use strict;
use warnings;

my $status_output = `svn status @ARGV`;
my @split_status_lines = split(/\n/, $status_output);

foreach(@split_status_lines)
{
    if($_ =~ /^M.{5}\s+(.*)$/)
    {
        my @command_and_args = ("tkdiff", $1, "&");
        print join(" ", @command_and_args) . "\n";
        system(join(" ", @command_and_args)) == 0
            or die "command failed";
    }
}