multithreading - 在线程之间转发/传递文件描述符

Question

我有一个任务，我正在等待一个线程中的连接并将它们转发到另一个线程。也许我误解了什么，但为什么我不能在主线程中重新打开文件描述符？

非常简化的代码:

sub inthread {
    $socket = new IO::Socket::INET ( ... );
    # ...
    while ( my $client = $socket->accept() ) {
       #if i print STDOUT, (fileno $client); # there i'll get 4
       push ( @shared, fileno $client);
    }
}


sub mainthread {
   if ( scalar @shared ) {
      $fd = shift @shared;
      # if i print (fileno $fd); # there i'll get 4
      open my $f, "<&=$fd" or die " error $!"; ### error here: Can't open 4: Bad file descriptor
      while ( <$f> ) { ... }
   }
}

threads->create(\&inthread);
while(1) { mainthread; }

完整代码在那里http://dpaste.com/3381RKV

测试:

perl -w ./testcode.pl --port=10102 &wget -O - http://127.0.0.1:10102/

Answer 1

my $client创建一个作用域为循环体的变量。在传递结束时，放弃对所包含句柄的最后引用，释放文件句柄，从而关闭关联的文件描述符。^[1]

这发生在另一个线程到达 open <&= 之前，因此当您尝试为其创建新的文件句柄时，文件描述符不再有效。

独立演示:

#!/usr/bin/perl

use strict;
use warnings;

my $fd;

{
   open(my $fh, '<', $0)
      or die($!);

   $fd = fileno($fh);
}                               # File handle closed here.

{
   open(my $fh, '<&=', $fd)
      or die($!);               # Bad file descriptor
}

您必须确保文件句柄不会过早关闭。您可以将它们存储在由 fd 键控的数组或散列中，另一个线程可以通过另一个共享结构让父线程知道它不再需要哪个处理程序。

---

1. 在您在评论中链接的代码中(与您发布的代码相反)，文件描述符在您调用 close $client; 时关闭。 .