论坛 › Perl › find a filename from a filehandle in Perl

dickrong 发表于 2015-12-29 11:39:53

find a filename from a filehandle in Perl

　　my $filename='/tmp/tmp.txt';
open my $fh, '>', $filename;
my $fd = fileno $fh;
print readlink("/proc/$$/fd/$fd");

查看完整版本: find a filename from a filehandle in Perl