如何将环境变量作为代码执行？

Question

我有以下使用环境变量 $X 的 Perl 代码：

printf("%s", substr($ENV{X}, 4));

在不更改 Perl 代码的情况下，我可以将 $X 设置为什么，以便 Perl 在 printf 返回之前以状态 1 退出？我认为${\(exit 1)} 会起作用，但显然我不明白 Perl 如何读取环境变量。

Answer 1

你无能为力。只是尝试获取数据时将数据作为 Perl 代码执行？那会很糟糕。

${\(exit 1)} 是一个调用exit 的表达式。 $ENV{X} 是一个返回字符串的表达式（env var X 的值）。

您需要将$ENV{X} 的内容作为 Perl 代码传递给 Perl 解析器。可以在 Perl 中使用以下方法将 Perl 代码传递给解析器：

• eval EXPR（包括s///ee）
• do PATH
• require PATH
• require Module
• use Module
• no Module

在perl之外，你可以使用

• perl PATH
• perl <PATH
• perl -e EXPR
• perl -E EXPR
• perl -MModule
• perl -mModule

此外，命令行选项可以通过PERL5OPT 传递。