Perl使用Capture::Tiny捕获string eval输出无结果是什么问题？

• 核心问题是eval执行时触发了strict规则报错，直接终止执行：你在代码开头开启了use strict，动态生成的代码中使用的$idx没有做变量声明，违反了strict模式下的变量使用要求，eval执行直接失败，没有运行到print语句，因此没有输出可以被捕获。
• 你没有做eval错误检查：Perl中eval执行过程中的错误不会直接抛出到主程序，只会写入内置变量$@，你没有判断该变量状态，因此完全感知不到eval已经执行失败，也就看不到错误日志。

给动态代码中的$idx添加my声明即可符合strict规则，同时建议增加eval错误检查方便后续问题排查，修正后的可运行代码如下：

use strict;
use warnings;
use Capture::Tiny 'capture_merged';

my $num_loops = 10;
# 修复点：给$idx添加my声明
my $new_code = "foreach my \$idx (0..\$num_loops-1) {print \"I am at iteration number \$idx\n\";}";

my $out = capture_merged {
    eval $new_code;
    # 新增错误检查，异常时直接抛出错误信息
    die "Eval执行失败: $@" if $@;
};
print $out;

如果你的动态代码场景确实不方便声明变量，也可以在动态代码开头临时关闭strict规则：

my $new_code = "no strict; foreach \$idx (0..\$num_loops-1) {print \"I am at iteration number \$idx\n\";}";

内容的提问来源于stack exchange，提问作者SS891