在使用perl腳本的時(shí)候，通過Net::OpenSSH去獲取執(zhí)行節(jié)點(diǎn)的信息是一種常用的方法。在某個(gè)環(huán)境中，執(zhí)行命令的時(shí)候出錯(cuò)，下面展示一下相關(guān)的代碼

    my $ssh_ops = {user => "root", password => "password", master_opts => [-o => "UserKnownHostsFile=/dev/null", -o => "StrictHostKeyChecking=no"]};my $ssh = Net::OpenSSH->new($host_ip, %$ssh_ops);# while( my ($key,$value) = each %ssh) {#     if (defined $value) {#         print "\n==== debug: $key => $value\n";#     }        # }$ssh->error and return "fail: cann't access by ssh";

在這段代碼執(zhí)行的時(shí)候，直接返回“fail: cann’t access by ssh” 通過手動(dòng)的方式進(jìn)行驗(yàn)證，在當(dāng)前節(jié)點(diǎn)通過ssh方式是可以正常登錄指定節(jié)點(diǎn)的。

將注釋的內(nèi)容放開，進(jìn)行調(diào)試，打印出如下信息：

==== debug: _error => ctl_dir /root/.libnet-openssh-perl/ is not secure==== debug: _host => 10.0.123.123

這個(gè)時(shí)候查看/root文件夾的權(quán)限

執(zhí)行命令 ：stat /root                                                                                                                                  23-08-03 - 13:45:41File: '/root'Size: 4096      	Blocks: 8          IO Block: 4096   directory
Device: 802h/2050d	Inode: 8912897     Links: 29
Access: (0775/drwxrwxr-x)  Uid: (    0/    root)   Gid: (    0/    root)

注意，這里的權(quán)限變?yōu)榱?755，正常情況下 /root目錄的權(quán)限應(yīng)該是Access: (0550/dr-xr-x—)
使用chmod命令將/root文件夾的權(quán)限更改一下，再次執(zhí)行就正常了。

建議： 不要輕易更改/root等系統(tǒng)文件夾的屬性，避免一些不必要的問題！