perl - 按编号关闭文件描述符

Question

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

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

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

'close 63 or die "close failed";

哪个死了。

Answer 1

close从POSIX可以做到这一点。

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