expect.pm

4熱度

1回答

自動化和捕捉登錄提示想到

我想在Perl自動登錄提示 我使用SSHGetCredentials('login_prompt' => 1)產生登錄提示，這是Perl的Expect::SSH庫的功能 這是我的代碼如何看起來像這裏REST::Client->getCredentials()內部調用SSHGetCredentials('login_prompt' => 1)這將調用登錄提示並返回輸入的用戶ID和密碼。 use Ex

perl expect.pm 2016-07-18

---

0熱度

1回答

如何捕獲使用Expect發送的命令的結果

當使用Perl Expect模塊時，我必須捕獲send命令的輸出。 我知道在shell或Tcl中，我可以使用puts $expect_out(buffer);來捕獲以前運行的命令。 我該怎麼在Perl中做同樣的事情？ 我遠程機器上發送以下命令： $expect->send("stats\n"); 我需要捕獲在一些變量的stats輸出。

perl expect.pm 2016-06-07

---

0熱度

1回答

以編程方式將參數傳遞給交互式腳本

我們有一個交互式腳本（腳本1），它詢問IP地址並繼續它的執行過程。腳本1從script2調用。 正如我們所知道的IP地址，我們想通過IP自動腳本，以便不需要手動干預 我看着Expect模塊。但我無法在PRODUCTION服務器上安裝該模塊。 有人可以提出一種方法來解決這個問題。

perl perl-module perl-data-structures expect.pm 2017-04-06

---

0熱度

1回答

使用Expect.pm處理perl中的「--More--」

我有一個使用Mac地址的設備的show命令，我使用Expect.pm在perl中執行該命令。 命令的輸出超過100行，底部爲--More--。 我能夠在第一次出現--More--之前捕獲輸出的所有內容。 但不是在那之後。 我試過while循環它不適合我。 請幫我解決這個問題。

perl expect.pm 2017-09-05

---

2熱度

1回答

在Perl中使用expect，如何使用方法$ object-> expect（）添加忽略大小寫的選項？

中的perldoc這是實例發現： $object->expect(15, '-re', "$str"); 我要添加選項「我」的比賽。這是行不通的： $object->expect(15, '-re', qr\$str\i); 我一定要使用此格式： $exp->expect($timeout, [ qr/$str/i, sub {}], $shell_prompt);

perl expect.pm 2015-10-14

---

1熱度

1回答

如何能夠在產生的過程中擺脫無限循環

讓我用一組特定的例子來問這個問題。的第一代碼，nlines.pl如下： #!/usr/local/bin/perl ######################### # print Hello world n times with n entered by a prompt ######################### use strict; use Time::HiRes q

perl expect.pm 2016-03-16

---

-4熱度

1回答

如何將expect腳本轉換爲perl scprit？

我從來不使用perl腳本。我已經完成了期望的腳本，有什麼辦法將它轉換爲Perl？ 我正在嘗試學習perl腳本。 任何想法可以幫助！ foreach addr $addr { if {$addr eq {}} continue; set timeout 180 match_max 1000000 spawn telnet $addr expect {

perl tcl expect expect.pm 2017-06-15

---

1熱度

1回答

在Perl中使用Expect獲取產生會話的會話ID

我正在使用Expect來使用ssh。我想知道產生的會話的會話ID。我怎麼做？ 這是我的代碼： my $addr = "10.101.10.102"; my $cmd = "ssh [email protected]".$addr; my $exp = Expect->spawn($cmd) or die "Cannot spawn command\n";

perl expect.pm 2015-07-20

---