我可以从Perl中的文件句柄中找到一个文件名吗？

发布时间：2020-12-15 21:18:28 所属栏目：大数据来源：网络整理

导读：open(my $fh,'',$path) || die $!;my_sub($fh); my_sub()可以以某种方式从$ fh外推$路径吗？解决方法文件句柄甚至可能不连接到文件，而是连接到连接到子进程的标准输出的网络套接字或管道。如果要将句柄与代码打开的路径相关联，请使用哈希和 fileno 运算

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

my_sub()可以以某种方式从$ fh外推$路径吗？

解决方法

文件句柄甚至可能不连接到文件，而是连接到连接到子进程的标准输出的网络套接字或管道。

如果要将句柄与代码打开的路径相关联，请使用哈希和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};
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!