PERL을 통한 SSH 수행

Question

다른 서버의 다른 쉘에 로그인하고 싶습니다. 그래서 나는 다음과 같은 코드를 작성했다.

#!/volume/perl/bin/perl 
use lib qw(/volume/labtools/lib); 
use Net::SSH::Perl; 

my $host = 'wd-shell2'; 
my $cmd = "cd /volume/ftp/private/det/os;ls -lrt jinstall*"; 
my $user = 'joydeep'; 
my $pass = ''; 
my $ssh = Net::SSH::Perl->new("$host", debug=>0); 
$ssh->login($user, $pass); 
my($stdout, $stderr, $exit) = $ssh->cmd($cmd); 
print "\n$stdout\n"; 

나는 내가 잘 여부를 썼다 여부, 확실하지 않다. 나는 tts-shell1에 있는데 어떻게 wd-shell2에 로그인 할 수 있고 (수정 한 후에) 코드로 내 일을 처리 할 수있다. 제발 도와주세요.

Answer 1

먼저 모든 펄 스크립트의 맨 위에 use strict; 및 use warnings;을 포함하십시오.

my $ssh = Net::SSH::Perl->new("$host", debug => 1); 

: 모듈이 당신에게 가능한 한 많은 도움이 메시지를 줄 것이다, 그래서

둘째, 당신은 debug 모드를 설정한다