在 Perl 脚本中使用 Bash 环境变量？

Question

我正在尝试从我的 Perl 程序中运行 Bash 命令。 但是 Perl 似乎将我的 Bash $PWD 环境变量混淆为 Perl 变量。

我怎样才能让它全部作为字符串读取？

这就是我要运行的内容

my $path = /first/path;
`ln -s $path $PWD/second/path`

那些反引号在 Bash 中运行第二行。使用 System() 会产生同样的问题。

有什么想法吗？

Answer 1

这里有两个查询，关于使用 Bash 变量和关于运行外部命令。

Perl 中有%ENV hash，带有环境变量

perl -wE'say $ENV{PWD}'

但是，您通常最好在脚本中获取等效项，因为脚本的含义可能会略有不同，或者会随着脚本的运行而发生变化。

更重要的是，使用 shell 命令会使您面临各种与引用、shell 注入和解释有关的潜在问题。例如，您显示的命令很危险，如Charles Duffy 评论中所述。原则上最好使用 Perl 的丰富功能。见例子

• Executing system commands safely while coding in Perl 和

• Using system commands in Perl instead of built in libraries/functions [duplicate]

对优势进行清醒而详细的说明。

---

如果您确实需要运行外部命令，最好完全避免使用 shell，例如使用system 的多参数形式。如果您还需要命令的输出，那么 Perl 中有各种模块可以提供该输出。请参阅下面的链接。

如果您还需要使用 shell 的功能，而不是引用所有内容以使 shell 更好地接收它需要的内容，请使用像 String::ShellQuote 这样的现成工具。

一些例子：

• How to use both pipes and prevent shell expansion in perl system function?

• Perl is respecting '<' as a regular character rather an output redirection

• How to pipe the content of a variable as STDIN in a qx{} statement in Perl?

• Perl system command with multiple parameters output to file。

请注意，qx operator（反引号）使用 /bin/sh，它可能会或可能不会降级到 Bash。所以如果你想要 Bash，你需要system('/bin/bash', '-c', @cmd)。请参阅示例链接。

---

这是一个与问题背后的目标相关的完整示例。

您的程序的工作目录可能与预期不同，具体取决于它的启动方式。一方面，它在chdir 之后发生变化。我不知道您对PWD 的确切意图，但在Perl 中有核心Cwd::cwd 和FindBin 和$RealBin，用于当前工作目录和脚本所在的目录（通常不同的东西）。

创建指向$path 的符号链接，相对路径位于当前工作目录之后

use warnings;
use strict;
use Cwd qw(cwd);

my $cwd = cwd;

my $path = '/first/path';

symlink($path, "$cwd/second/path") or die "Can't make a symlink: $!";

如果路径是脚本的位置，请使用来自FindBin 的$RealBin 而不是cwd。

请注意，symlink 不能传递目录而不是链接名称。见this page。