如何訪問perl中的Expect模塊的緩衝區內容

Question

我正在使用期望自動化基於終端的應用程序。我將根據「expect」命令的結果發送數據。我知道這一點，期望在進行字符串匹配時將所有不匹配的字符串模式存儲在緩衝區中。例如$ expect_out（0，string）用於存儲期望實際等待的字符串，而$ expect_out（buffer）包含所有不匹配的字符串模式，直到前一個命令發生。

我想知道是否有訪問這些期望緩衝區，像複製期望buffer內容到一些變量如下圖所示

$mybuffer = $expect_out(buffer); 

但上述說法實際上是拋出一個錯誤「語法錯誤在任何方式perl_app_hh.pl線72，近「$ expect_out（」」

我只是想複製的預期緩衝到一個變量內容。所以，請幫助我在這個問題上。

Answer 1

你不得不讀the documentation for the Expect module。$expect(buffer)是無效的Perl。

$exp = Expect->spawn(...); 
$exp->send(...); 
$buffer = $exp->before();