如何使用 Perl 获得 bash 内置命令

Question

我想知道是否有办法使用 perl 脚本获取 Linux 命令。我说的是诸如cd ls llclear cp之类的命令

Answer 1

您可以通过多种方式执行系统命令，其中一些方式比其他方式更好。

• 使用 system();，打印命令的输出，但不将输出返回到 Perl 脚本。
• 使用反引号 (``)，不会打印任何内容，而是将输出返回到 Perl 脚本。使用实际反引号的另一种方法是使用 qx(); 函数，该函数更易于阅读并完成相同的任务。
• 使用exec();，它与system();做同样的事情，但根本不返回到Perl脚本，除非命令不存在或失败。
• 使用 open();，它允许您将输入从脚本传输到命令，或者将命令的输出读入脚本。

值得一提的是，您列出的系统命令（如 cp 和 ls ）使用 Perl 本身的内置函数可以更好地完成。任何系统调用都是一个缓慢的过程，因此当所需结果很简单（例如复制文件）时，请使用本机函数。

一些示例：

# Prints the output. Don't do this.
system("ls");

# Saves the output to a variable. Don't do this.
$lsResults = `ls`;

# Something like this is more useful.
system("imgcvt", "-f", "sgi", "-t", "tiff", "Image.sgi", "NewImage.tiff");

此页面更详细地解释了进行系统调用的不同方式。

Answer 2

正如 voithos 所说，您可以使用 system() 或反引号。但是，请考虑到不建议这样做，并且例如，cd 不起作用（实际上不会更改目录）。请注意，这些命令是在新 shell 中执行的，不会影响正在运行的 perl 脚本。

我不会依赖这些命令并尝试在 Perl 中实现您的脚本（如果您决定使用 Perl，无论如何）。事实上，Perl 最初被设计为系统管理员的 sh 和其他 UNIX shell 的强大替代品。

Answer 3

您可以将命令放在反引号中
`命令`

Answer 4

问题是 perl 试图执行 bash 内置命令（即 source，...），就好像它们是真实文件一样，但 perl 无法找到它们，因为它们不存在。答案是告诉 perl 明确执行什么。对于像 source 这样的 bash 内置命令，执行以下操作即可正常工作。

my $XYZZY=`bash -c "source SOME-FILE; DO_SOMETHING_ELSE; ..."`;

对于 cd 的情况，执行如下操作。

my $LOCATION=`bash -c "cd /etc/init.d; pwd"`;