Perl的system()如何打印它正在运行的命令？

在Perl中，system()函数用于执行外部命令并等待其完成。要在执行命令时打印正在运行的命令，可以使用print语句将命令打印到标准输出，然后调用system()函数。

以下是一个示例代码：

#!/usr/bin/perl

$command = "ls -l";
print "Running command: $command\n";
system($command);

在这个示例中，我们将要执行的命令存储在变量$command中，然后使用print语句将命令打印到标准输出。接下来，我们调用system($command)来执行命令。

当运行此脚本时，将看到以下输出：

Running command: ls -l
total 4
-rw-r--r-- 1 user group 108 Sep 21 14:39 test.txt

在这个输出中，我们可以看到正在运行的命令ls -l，以及命令的输出。

需要注意的是，system()函数不会返回命令的输出，而只是返回命令的退出状态。如果需要获取命令的输出，可以使用其他方法，例如使用反向管道（backticks）或qx()函数。