用于Windows的Perl Net :: SSH2

Question

use Net::SSH2;

$HostName=$ARGV[0];
my $ssh2 = Net::SSH2->new();
$ssh2->connect("$HostName") or die "Unable to connect Host $@ \n";
$ssh2->auth_password('user','passwd') or die "Unable to login $@ \n";
my $chan = $ssh2->channel();
$chan->shell();
print $chan "cd C:\Test\n";

以上代码似乎不适用于Windows框。有谁能告诉我这个问题？

Answer 1

使用“使用警告”启用警告;你会立即发现至少一个错误。