use Net::SSH2;
$HostName=$ARGV[0];
my $ssh2 = Net::SSH2->new();
$ssh2->connect("$HostName") or die "Unable to connect Host [email protected] \n";
$ssh2->auth_password('user','passwd') or die "Unable to login [email protected] \n";
my $chan = $ssh2->channel();
$chan->shell();
print $chan "cd C:\Test\n";
위의 코드는 Windows 상자에서 작동하지 않는 것 같습니다. 누구든지 문제를 말해 줄 수 있습니까?Windows 용 Perl Net :: SSH2
* windows box *가 SSH 데몬을 실행하고 있습니까? –
정확히 "* 작동하지 않는 것"*은 의미합니까? 어떤 오류가 있습니까? – m0skit0
SSH 연결이 작동 중입니다. – user936636