按编号关闭文件描述符

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);