0

我创建了一个 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,当您说面向对象模块时,我不确定我是否理解您的意思......但有兴趣听到更多以更好地理解。

4

2 回答 2

2

如果您不想对目录进行硬编码,可以使用

use FindBin qw( $RealBin );
use lib $RealBin;

$RealBin是脚本的路径。如果myRoutines.pm在子目录中,则根据需要进行调整。)

于 2017-09-07T19:35:20.040 回答
-2

简单易行的方法是将.pm文件放在: /usr/lib64/perl5/ 目录中,您应该没有任何问题。但仍然不是完美的解决方案,您应该能够将.pm文件放在任何您想要的地方。

于 2017-09-07T19:19:17.167 回答