perl - 番号でファイル記述子を閉じる

Question

Perl プログラムが lvs を実行すると、警告が表示されます

ファイル記述子 63 (pipe:[117387]) が lvs 呼び出しでリークしました。親 PID 12053: perl

Perl プログラムを呼び出すプログラムがこの記述子を開いたままにしたためです。呼び出し元のプログラムを変更できませんが、Perl でファイルハンドルを閉じる方法はありますか? 私は試した：

'close 63 or die "close failed";

死ぬ。

Answer 1

closePOSIXからそれを行うことができます。

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