从脚本向终端发送命令

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 可以做很多事情，如果它还没有内置，或者核心模块，它可能在 CPAN。

正如人们所提到的， mkdir 可用，因此大部分 基本文件有关的命令。

话虽如此，这里是 perl 中 shell 命令的污点：

您希望 perl 脚本：

• 等待 shell 命令执行并检查其退出状态。
  使用 system
• 等待并捕获标准输出< shell 命令的 /em>。使用 qx//，或者
  反引号。
• 放弃 perl 脚本来运行另一个命令。使用
  exec。但通常情况下，您不会真的想使用 exec，因为
  上面链接中描述的原因。
• 运行系统命令并通过管道输入或输出到它。使用
  open 使用 MODE -| 或 |- 分别。

Answer 4

要从 perl 脚本执行任何系统命令，您需要使用带有反引号的系统命令，

例如，

在您创建目录的情况下，您需要键入

system(mkdir $directory); #note html 不显示反引号，但反引号位于 mkdir 之前和 $directory 之后

它将在当前工作目录中以 $directory 的名称创建一个目录