remote shell command

아주 간단한 rshell을 이용한 remote shell command..

#!/usr/bin/perl

# remote commandd (host, rcmd, lcmd)
sub rcmd {
  my $RSH = "/usr/local/bin/rsh";
  chomp $RSH;
  my $RESULT = "";

  if($#_ == 1) {
     $RESULT = `$RSH $_[0] $_[1]`;
  } else {
    $RESULT = `$RSH $_[0] $_[1] | $_[2]`;
  }

  chomp $RESULT;
    return $RESULT;
}

rcmd("a55384", "ls -al");