在終端用Perl指令碼自動補全輸入內容

最近在用Perl來做工作的時候，運行到一個地方，需要我輸入一個裝置名稱，以判斷接下來應該做的步驟。每次運行到這裡，我都是手動輸入很長的裝置名稱，比如說ciscocontenteng，每次這樣輸入，不僅累死人，還很容易出錯。
這種情況下，可以用Term::Complete這個module來實現用tab鍵自動補全。用法非常簡單，看代碼就差不多能理解了：
use warnings; use strict;
use Term::Complete;
my @completion_list = (“atest”,”btest”,”cdtest”,”efgtest”);
my $input = Complete(‘please input the start character and use tab to complete: ‘, \@completion_list); #$input = Complete(‘prompt_string’, @completion_list);
print “The input word is: “.$input;

在上面的代碼裡，我們設定了一個數組@completion_list，裡麵包含了需要補全的名稱，Perl就是根據這個列表來對你輸入的字元進行補全的。Complete函數是主導這個工作的核心，它的第一個參數是在終端上輸出提示輸入的說明，第二個參數就是能用於補全的片語列表。
運行這個指令碼的時候，你按tab鍵，Perl會自動用列表中的詞來幫你補全，你輸入斷行符號確定補全、輸入結束後，Perl會把你輸入的內容存到變數$input裡。
這樣，以後就再也不用敲一長串的字元了。