Могу ли я найти имя файла из дескриптора файла в Perl?

Question

open(my $fh, '>', $path) || die $!; 
my_sub($fh); 

Может ли my_sub() каким-то образом экстраполировать $ path из $ fh?

Answer 1

Файловый дескриптор, возможно, даже не подключен к файлу, а вместо этого подключен к сетевому сокету или к каналу, подключенному к стандартным выводам дочернего процесса.

Если вы хотите связать ручки с путями, которые открывает ваш код, используйте хэш и оператор fileno, , например.,

my %fileno2path; 

sub myopen { 
    my($path) = @_; 

    open my $fh, "<", $path or die "$0: open: $!"; 

    $fileno2path{fileno $fh} = $path; 
    $fh; 
} 

sub myclose { 
    my($fh) = @_; 
    delete $fileno2path{fileno $fh}; 
    close $fh or warn "$0: close: $!"; 
} 

sub path { 
    my($fh) = @_; 
    $fileno2path{fileno $fh}; 
} 

Answer 2

Вы можете позвонить stat или IO::Handle::stat на дескрипторе - это даст вам устройство и индексный дескриптор файла, который вы открыли. С этим и небольшим волшебством операционной системы вы можете найти имя файла. Хорошо, может быть, много волшебства операционной системы.

---

Команда find имеет -inum вариант, чтобы найти файл с указанным номером инода. Вероятно, это будет не так эффективно, как кеширование пути при открытии файла, как рекомендует gbacon.

Answer 3

Кто может искать лучший способ найти имя файла из дескриптора или дескриптора файла:

Я предпочел бы использовать находку -inum, если таковые имеются. Или, как насчет использования следующим образом, всегда - любые недостатки, кроме совместимых с unix/linux!

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