Linux 在Perl中从文件名获取文件描述符

我在Perl中使用一个遗留库，它正在泄漏文件描述符（我没有访问C源代码的权限）

我知道代码正在打开的文件名，但不知道文件描述符。有没有办法确定文件描述符以便关闭它

/proc//fd

具有文件描述符

$ ls -l /proc/$$/fd
total 0
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 0 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 1 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 2 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 255 -> /dev/pts/3

您也可以尝试

lsof-a-p

/proc//fd

具有文件描述符

$ ls -l /proc/$$/fd
total 0
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 0 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 1 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 2 -> /dev/pts/3
lrwx------ 1 ikegami pg1404028 64 Jan 12 20:26 255 -> /dev/pts/3

您也可以尝试

lsof-a-p

---

/proc/fd有文件描述符try:lsof-a-p/proc/fd有文件描述符try:lsof-a-p