perl中怎么实现登陆远程主机执行exp导出命令

Question

perl中怎么实现登陆远程主机执行exp导出命令，telnet禁用。

Answer 1

该回答引用ChatGPT

在Perl中，您可以使用Net::SSH::Perl模块来实现通过SSH连接到远程主机，并在远程主机上执行命令。

---

下面是一个简单的示例，该示例使用Net::SSH::Perl模块连接到远程主机并执行exp导出命令：

use Net::SSH::Perl;

my $host = 'remote.example.com';
my $user = 'username';
my $pass = 'password';
my $command = 'exp command';

# Create a new SSH object
my $ssh = Net::SSH::Perl->new($host);

# Authenticate with the remote server
$ssh->login($user, $pass);

# Execute the command on the remote server
my ($stdout, $stderr, $exit) = $ssh->cmd($command);

# Print the output of the command
print "STDOUT: $stdout\n";
print "STDERR: $stderr\n";
print "EXIT  : $exit\n";

这里需要替换$host，$user，$pass和$command变量的值。$host是远程主机的主机名或IP地址，$user是您在远程主机上的用户名，$pass是您在远程主机上的密码，$command是您要在远程主机上执行的exp命令。

---

请注意，使用telnet连接到远程主机已被禁用，因为telnet不安全，易受攻击。因此，我们建议使用SSH连接来远程执行命令。