求救=>Net::SSH::Perl使用问题-无法使用远端环境变量

jinwh12

$connect = new Net::SSH:erl(
        "192.168.*.*",
        port => "22",
                   protocol => '2,1',
        options => [
            'BatchMode yes',
            'RSAAuthentication no',
            'PubkeyAuthentication no',
            'NumberOfPasswordPrompts 1',
            'ChallengeResponseAuthentication no',
            'PasswordAuthentication yes',
            'UserKnownHostsFile /dev/null',
        ],
         );
$connect->login("****", "****";
($value, $err_msg, $exit_code) = $connect->cmd("cat \$ORACLE_HOME/network/admin/sqlnet.ora | grep -i AUTHENTICATION_SERVICES";

代码如上，但是总是报错：cat: /network/admin/sqlnet.ora: No such file or directory

但是如果不使用ssh，而是直接在设备上跑qx{cat \$ORACLE_HOME/network/admin/sqlnet.ora | grep -i AUTHENTICATION_SERVICES},则没有问题

有人知道这是为什么吗？

难道ssh不支持参数传递？

laputa73

读一下sshd的说明,或者baidu ssh 环境变量
ssh的环境变量要在.ssh目录下面单独设置的

小牛开刀

回复 1# jinwh12


没用过 Net::SSH, 我用的是 Net::OpenSSH,

我不知道别人怎么解决的, 我是先 source /etc/profile 或其他环境变量, 例如:

1. 
   
2.     if ( $wnat_to_do eq 1 ) {
   
3.         if ( m/$tomcat_no_run/ ) {
   
4.             chomp ( $cmd_start  = "source /etc/profile && $black_cat[$#black_cat]" );
   
5.             chomp ( $cmd_start .= "$path_tail" );
   
6.         } else {
   
7.             print "$black_cat[0] $black_cat[1] already running!\n";
   
8.             $check_status = '1';
   
9.         }
   
10.     } elsif ( $wnat_to_do eq 2 ) {
    
11.        ......
    
12.     }
    

复制代码

jinwh12

我把远端设备上的ssh配置做了如下修改：
PermitUserEnvironment yes
service sshd restart

但是仍然无法正确执行：
$ssh=new Net::SSH:erl(........);
($value, $err_msg, $exit_code) = $ssh->cmd("cat \$ORACLE_HOME/network/admin/sqlnet.ora  | grep -i encryption";

但是如果我使用Net::SSH::Expect模块，调用命令：
$ssh->exec("\$ORACLE_HOME/bin/sqlplus / as sysdba";

这时，在远端执行该命令时，$ORACLE_HOME 就可以正确被远端设备获取到其变量值

但是不想使用Net::SSH::Expect，感觉waitfor匹配慢。

laputa73

你配置envirionment文件了吗?
或者,你就source一下啊
. $HOME/.bash_profile;cat .........

jinwh12

应该不是环境变量的问题，远端设备有环境变量的；用expect或者telnet方式都可以获取到，就是用ssh::perl的那个cmd调用时获取不到

laputa73

expect和telnet当然是可以得到的,因为它们都是要登录的.
只有ssh 远程执行命令是特殊的.
算了...LZ你自己想怎样就是怎样吧

小牛开刀

回复 4# jinwh12


    你试试:

1. "source /etc/profile && cat \$ORACLE_HOME/network/admin/sqlnet.ora  | grep -i encryption"

复制代码

或者

1. "source /home/oracle/.bashrc && cat \$ORACLE_HOME/network/admin/sqlnet.ora  | grep -i encryption"

复制代码

先 source 一下环境变量.