remote diff for servers on the same directory trees.

rd.pl

#!/usr/bin/env perl

my $name = $ARGV[0];
chomp $name;

my $remote = $ARGV[1];
chomp $remote;

my $path;
if ($name =~ /^//) {
  $path = $name;
} else {
  my $pwd = `pwd`;
  chomp $pwd;
  $path = $pwd . "/" . $name;
}

my $cmd = "ssh $remote cat $path | diff -u - $name";
print "$cmd \n";
`$cmd`;