remote shell command

perl 2009. 7. 31. 21:45

아주 간단한 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");

'perl' 카테고리의 다른 글

Download Perl module(CPAN)  (0) 2009.07.31
remote shell command  (0) 2009.07.31
웹 막음, 오픈 (서비스 오픈 전에 사용)  (0) 2009.07.31
CPAN 이용하기  (0) 2008.09.27
펄에서 특정 패턴 확인하기  (0) 2008.07.17
반올림(또는 버림) 함수  (0) 2008.06.07
Posted by 김용환 '김용환'

댓글을 달아 주세요