通过fcntl从stdout创建新文件描述符时文件中执行失败

首先，咱们拆解下问题：你写的脚本里调用fcntl获取$*OUT的文件描述符时返回了-1，但在REPL里跑一模一样的代码却能得到预期结果。这背后的核心原因其实是你对fcntl的调用参数不完整，再加上Perl 6脚本和REPL的执行环境差异，才导致了这种奇怪的不一致。

问题根因 #

fcntl是个可变参数的系统调用，它的C原型是这样的：

int fcntl(int fd, int cmd, ...);

你用的命令码0对应的是F_DUPFD（用来复制文件描述符），这个命令必须要传第三个参数——也就是你想要分配的最小文件描述符数值。但你在脚本里调用时完全没传这个参数，这就导致调用行为变成了未定义的状态，系统直接返回错误码-1；而REPL因为执行环境的特殊性（比如临时栈的状态刚好“凑”出了一个看起来合理的值），才会让你觉得它能正常工作，但这其实是不可靠的巧合，根本不是正确的用法。

另外多说一句：如果你只是想拿到$*OUT的原生文件描述符，其实完全没必要调用fcntl——直接用$*OUT.native-descriptor就能拿到正确的fd了。

解决方案 #

根据你的需求，分两种情况处理：

1. 如果你是想复制$*OUT的文件描述符

那你需要修正fcntl的NativeCall定义，让它支持可变参数，并且在调用时补全第三个参数：

use v6.c;
use NativeCall;

# 定义支持可选第三个参数的fcntl，默认值设为0
sub fcntl(int32 $fd, int32 $cmd, int32 $arg = 0 --> int32) is native { * }
sub close(int32 $fd --> int32) is native { * }

my $stdout-fd = $*OUT.native-descriptor;
# 调用F_DUPFD，指定最小文件描述符为0
my $dup-fd = fcntl($stdout-fd, 0, 0);

if $dup-fd == -1 {
    say "fcntl调用失败: $!";
} else {
    say "复制得到的文件描述符: $dup-fd";
    close($dup-fd);
}

2. 如果你只是想获取$*OUT的原生文件描述符

那代码可以简化到极致：

say $*OUT.native-descriptor;

为什么REPL里看似正常？ #

REPL的执行环境和独立脚本不一样，它的变量生命周期、栈布局都是动态的，偶尔会让缺少参数的fcntl调用返回一个看起来正确的值，但这完全是运气问题，属于未定义行为，绝对不能在正式代码里依赖这种情况。

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