在Perl中執行外部命令可以使用system
函數。system
函數會在操作系統中執行指定的命令,并返回命令的退出狀態碼。下面是一個簡單的示例:
my $command = "ls -l";
my $exit_status = system($command);
if ($exit_status == 0) {
print "Command executed successfully\n";
} else {
print "Command failed with exit status: $exit_status\n";
}
在上面的示例中,system
函數會執行ls -l
命令,并將退出狀態碼存儲在$exit_status
變量中。如果退出狀態碼為0,則表示命令執行成功,否則表示命令執行失敗。
除了system
函數外,還可以使用反引號(``)或qx//
操作符來執行外部命令,并獲取其輸出。例如:
my $output = `ls -l`;
print $output;
請注意,使用反引號或qx//
操作符執行外部命令時,會將命令的輸出存儲在變量中,而不是返回命令的退出狀態碼。