我创建了一个 Perl 模块,该模块将在许多 Perl 脚本中用于Net::SSH::Expect
登录。
package myRoutines;
#
use v5.22;
use strict;
use warnings;
use Net::SSH::Expect;
use Exporter qw(import);
our @EXPORT_OK = qw(my_login);
sub my_login {
my $user = 'xxxx';
my $port = '10000';
my $passwd = 'XYZ';
my $adminServer = 'myServer';
my $rootpassword = 'ABCDEF';
my ( $pName, $vName ) = @_;
our $ssh = Net::SSH::Expect->new(
host => "$adminServer",
ssh_option => "-o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null",
user => "$user",
password => "$passwd",
port => "$port",
raw_pty => 1,
restart_timeout_upon_receive => 1,
log_file => "/var/tmp/clilog_$pName$vName"
);
eval {
my $login_output = $ssh->login();
if ( $login_output !~ />/ ) {
die "Login has failed.
Login output was $login_output";
}
};
return $ssh;
}
1;
脚本将执行以下操作:
use myRoutines qw(my_login);
our ( $ssh, $pName, $vName );
$pName = 'abc';
$vName = '123';
$ssh = my_login( $pName, $vName );
$ssh->send( "some command\r" );
如果我在脚本和模块所在的目录中,这一切都有效。如果我在任何其他目录中,则new
调用有效,但调用$ssh->send
不执行任何操作。
我尝试添加到我的脚本中:
use lib '/some/dir';
(.pm 文件所在的位置)强制它找到模块,当我不在 pm 文件所在的目录中时,这似乎有效。
我试图:
use File::chdir;
$CWD = '/some/dir';
再一次,登录似乎有效,但下一次发送什么也不做。因此,我对可能发生的事情感到茫然,并希望得到一些建议。
更新 20170908:
在进一步播放并遵循所提出的建议后,我已经完成了以下操作,现在它可以工作了:
删除了评估,因为它是不必要的。删除了我们的并把它变成了我的。删除了“”的
在脚本中设置以下内容:
use File::Basename;
use Cwd qw( abs_path );
chdir "/some/dir";
use lib dirname(abs_path($0));
my $scriptName = basename($0);
use myRoutines qw(ovm_login);
my $pName = substr($scriptName,0,-3); (cutting off the .pl from the end of the script name to pass the scriptname as the pName)
使用 chdir 将目录更改为我的 pl 脚本和 pm 文件所在的位置,然后设置 lib 似乎可以正常工作。
Borodin,当您说面向对象模块时,我不确定我是否理解您的意思......但有兴趣听到更多以更好地理解。