按编号关闭文件描述符

Question

我的 Perl 程序执行给出警告的 lvs

文件描述符 63（管道：[117387]）在调用 lvs 时泄露。家长 PID 12053：perl

因为调用我的 Perl 程序的程序打开了这个描述符。我无法更改调用程序，但有没有办法让我在 Perl 中关闭文件句柄？我试过了：

'close 63 or die "close failed";

哪个死了。

Answer 1

来自POSIX 的close 可以做到这一点。

use POSIX qw( );
POSIX::close(63);