Question

我创建了一个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：

在进一步播放并遵循所提出的建议后，我已完成以下操作，现在可以正常运行：

删除了eval，因为它是不必要的。删除了我们的，并使它成为我的。删除了“”的

在脚本中设置以下内容：

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似乎正常工作。

鲍罗丁，当你说反对模块的对象时，我不确定我理解你的意思......但是有兴趣听到更多以便更好地理解。

Answer 1

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

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

（$RealBin是脚本的路径。如果myRoutines.pm位于子目录中，请根据需要进行调整。）

Answer 2

简单易行的方法是将.pm文件放入： /usr/lib64/perl5/ 目录，你不应该有任何问题。但仍然不是完美的解决方案，您应该能够将.pm文件放在任何您想要的位置。

模块cwd援助

2 个答案: