如何在qx中使用__FILE__？

Question

我正在尝试在Perl脚本的顶部分配一个常量，如下所示：

use constant {
  # ...
  CONSTNAME => qx{readlink -e __FILE__} || __FILE__,
  # ...
};

__FILE__未在qx运算符内插入，导致此失败。如何实现我想要的，即在调用shell的__FILE__之前插入readlink 。

请注意：不能将命令存储在中间变量中。

Answer 1

要直接回答这个问题，你可以使用perlref中描述的interpolate-arbitrary-expression-in-string习语：

print qx{echo @{[ __FILE__ ]}};

评论中提出了几个警告：

• []供应列表上下文。这在这里无关紧要，但总的来说值得了解。
• 如果__FILE__有shell元字符，则可能会遇到麻烦。

如果您的目标是找到所有符号链接已解决的perl脚本的路径，您可能需要查看FindBin module。 FindBin已成为核心perl分布的一部分已有一段时间（根据http://search.cpan.org/~chips/perl5.004/，至少从5.004开始）。

Answer 2

全Perl解决方案：

my $self = $0;
while( -l $self ){
  $self = readlink $self;
}
use constant {
  # ...
  CONSTNAME => $self,
  # ...
};

Answer 3

使用readpipe等效于qx//的功能。 Perl内部qx//的行为与qq//大致相同，然后将结果传递给readpipe。当qx//的引用行为妨碍您绕过它并直接致电readpipe时。

use constant {
    CONSTNAME => readpipe('readlink -e ' . quotemeta(__FILE__)) || __FILE__,
};

quotemeta将有助于防止文件名中可能出现的shell元字符攻击。