Net::OpenSSH 疑問

bluesmile11

朋友們好，我想用perl實現(xiàn)這樣一個功能

有多臺遠端賬戶與密碼相同的服務器，想通過perl腳本在本地登錄遠端服務器（是SSH 登錄上去，相當于打開一個新的會話 ），不加參數(shù)的情況下，用普通賬戶登錄，加參數(shù)后用root登錄
，有什么好思路嗎？

大概了解了一下Net::OpenSSH
1.貌似是一定要用證書，不能用user和password
2.通過Net::OpenSSH 在遠端機器上執(zhí)行命令可以，但是不能登錄上去

yybmsrs

可以用密碼
登陸上去和執(zhí)行命令有什么區(qū)別？

bluesmile11

回復 2# yybmsrs

我們是這樣設定，在跳板機上部署這個腳本，然后通過跳板機訪問我們的服務器
   

py

bluesmile11 發(fā)表于 2013-07-29 22:01
回復 2# yybmsrs

我們是這樣設定，在跳板機上部署這個腳本，然后通過跳板機訪問我們的服務器

你沒回答2樓的問題

jason680

回復 1# bluesmile11

How about this ...

        $oNet_ssh = Net::OpenSSH->new(
           $sIP, user=> $sUser, passwd=>$sPsw, 'timeout' =>30,
           master_opts => [-o => "StrictHostKeyChecking=no"],
        );

         $oNet_ssh->capture2("YOUR COMMAND ...");

ackor

用expect，這個可以用帳號和密碼登陸。

zz028

我是調(diào)用的這個腳本，需要安裝expect-devel ,和tcl包，希望對你有幫助
#!/usr/bin/expect
set timeout 10
set host [lindex $argv 0]
set username [lindex $argv 1]
set password [lindex $argv 2]
set src_file [lindex $argv 3]
set dest_file [lindex $argv 4]
spawn scp $src_file $username@$hostdest_file
expect {
"(yes/no)?"
   {
    send "yes\n"
    expect "*assword:" { send "$password\n"}
}
"*assword:"
{
send "$password\n"
}
}
expect "100%"
expect eof