從腳本向終端發送命令

Question

如何將命令發送到perl腳本中的終端？

例如，如果我想在控制檯中運行命令mkdir $directory，我該在perl腳本中輸入什麼內容？

Answer 1

建模關閉文檔中的代碼示例在http://perldoc.perl.org/functions/system.html：

@args = ("mkdir", $directory); 
system(@args) == 0 
    or die "mkdir failed"; 

Perl可以使目錄，而system()電話，但我相信你想要做其他的東西，只是使用的mkdir作爲一個例子。

Answer 2

由於Perl有建於mkdir()系統調用，你並不需要在所有使用system命令：

my $directory = "..."; 
if (mkdir $directory) 
{ 
    croak "Failed to create directory $directory ($!)"; 
} 

如果必須使用system，這樣做的安全方法：

if (system "mkdir", $directory) 
{ 
    croak "Failed to create directory $directory"; 
} 

這種形式的system語句（帶有參數列表）避免了shell擴展的問題。

Answer 3

使用perl命令而不是依賴shell命令。 perl可以做很多事情，如果它不是built in或core module，它可能在CPAN上可用。

正如人們所提到的，mkdir可用，所以大多數basic file related commands。

話雖這麼說，這裏的shell命令的污垢在Perl：

你想要的所有Perl腳本：

• 等待在執行shell命令並檢查其退出狀態。 使用system
• 等待並捕獲shell命令的標準輸出。使用qx//或 反引號。
• 放棄perl腳本來運行另一個命令。使用 exec。但通常情況下，您不會真的想要使用exec，因爲上述鏈接中描述的 原因。
• 運行系統命令和管道輸入或輸出到/從它。使用 open和MODE分別爲-|或|-。

Answer 4

對於從Perl腳本執行任意系統命令，你需要使用系統命令用反引號

爲電子商務。摹

在你的情況，用於創建你需要輸入

系統（mkdir $directory）目錄; #note HTML是不顯示的反引號，但反引號是發生之前的mkdir和$目錄後

它將在$目錄的名稱