perl：獲取新的文件描述符以將stdin重定向至

Question

        my $EXE = FileHandle->new;
        my $fd = 3; # <-------- doest work
        open $EXE, q{-|},
            "$myexe make 2>&1 <%=$fd"
            or die('Cannot open EXE');
        $err = !(close $EXE);

我想將stdin重定向到一些虛擬文件描述符（最好不必打開文件）。

有什么建議我在2>&1如何重定向stdin？

Answer 1

2>&1    # Dups fd 1 onto fd 2

所以

0<&3    # Dups fd 3 onto fd 0
<&3     # "<" affects fd 0 by default

所以

open(my $from_child, '-|', "foo 2>&1 <&$fd")

我不禁要問為什么要這么做。 它是使用IPC :: Run3或IPC :: Run可以更好地完成的事情的一部分嗎？